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•  8  frygtindgydende  modstandere  med  hver 
sin  kampstil. 

•  Biede  kamerabevægelser  giver  flotte  total¬ 
billeder  af  kampen. 

•  Udmarvende  3-minutters  omgange  med 
»knock-down«  og  »knock-out«  features. 

•  Opvarmning  og  auto-play  sekvenser. 

•  K.O.  meter,  bedste  K.O.  tid,  score  og  bonus 
vises  på  skærmen. 

•  Ekstra  boksere  kan  loades  ind  fra  båndet. 

•  Hall  of  farne. 

•  Anbefalet  af  sværvægtscham- 

fc..  pion  Frank  Bruno. 
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Små  eller  store,  sjove  eller 
seriøse  til  de  populære  com¬ 
putere? 

SO  vU  vi  meget  gerne  vise  dem  i 
iData" 


Alt  om  Data"  eller '  ‘Soft’ 
magasinerne. 

Husk,  vi  giver  op  til  1.000  kroner 
skattetrit  tor  et  rigtigt  godt  pro¬ 
gram.  Send  kassette  eller  disc 
og  gerne  en  udlist nlng  med  en 
Ulle  programlorklarlng  og  en 
trankeret  returkuvert  til: 


frankeret  returkuvert 

"Ny  Elektronik 
jac 

navn  K 


St.  Kongensgade  72, 
1264  Københi 


SOFT-Check  / 

Vi  anmelder  nye 
programmer 

Commodore  64/ 

Jet  Jones 
Spectrum/ 

Bliv  tipsmillionær 
Amstrad/ Adventure 
Spy 

IBM/2.  Grad 

VIC  20/Race 
Commodore  64/ 

Shoot'em 

Spectrum/Katte¬ 

streger 

Commodore 

64/Flight  773 
Spectrum/Tårnspring 
Amstrad/Bib  File 
VIC  20/Hole  in  one 
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Commodore 

64/Suicide  Mission 
VIC  20/Morse  træner 
Lambda/Kanalsøger 

Spectrum/Tank 

Attack 

Commodore 

64/Kalaha  Computer 

Amstrad/Rente- 

knuser 

Commodore 

64/Kinaskak 

Spectrum/Rocket 

Lander 

Spectrum/Kaptajn 

Torpedo 

IBM/Character 

Design 

Amstrad/CPR  Check 
Commodore 

64/Joypainter 
Spectrum/ Jagten  pd 
det  forsvundne  guld 
Amstrad/Kalender 
rytmer 

Commodore  64/Mr. 

Brown 

James  Bond/Konkur- 

renceresultatet. 

Næste  nummer/ Alt 

om  det  store  fødsels¬ 
dagsnummer 
VIC  20/Karakter 
tegner 


Næste  nummer  af  SOFT  udkommer  d.  19.  december. 


Hvilke  spil  kommer  til  at  ligge  un¬ 
der  træet? 

-  Og  hvad  vil  du  fordrive  jule¬ 
dagene  med? 

SOFT  Special  kan  allerede  nu  løfte 
sløret  for  nogle  af  vintertidens 
bestsellers,  direkte  fra  årets  kæm¬ 
peudstilling,  The  Personal  Com¬ 
puter  World  Show  i  London  -  com¬ 
puterejernes  hovedstad.  For  selv¬ 
følgelig  havde  vi  en  korrespon¬ 
dent  med.  . . 


■  Det  er  Englands  hoved¬ 
stad,  hele  Europa  valfarter 
til,  når  der  skal  studeres 
computer-nyheder.  Hvert  år 
i  september  afholdes  i  nogle 
dage  den  legendariske 
PCW-udstilling.  Helt  klart  en 
af  årets  begivenheder  for  da¬ 
tafolket.  På  linje  med  Christ- 
mas  og  National  Day. 

I  år  var  udstillingen  større 
end  nogen  sinde  før,  hvilket 
ikke  mindst  skyldtes  softwa¬ 
re.  Hovedparten  af  de  udstil¬ 
lende  firmaer  var  nemlig 
software-huse,  og  hvis  no¬ 
gen  mente,  spil  var  på  vej 
”yt”,  ændrede  de  prompte 
mening  på  årets  PCW  -  den 
ottende  af  slagsen  og  med 
endnu  en  rekord:  Der  var 
mere  software  end  nogen 
sinde  før. 

Dette  sidste  har  givet  anled¬ 
ning  til  bekymring.  Arrangø¬ 
ren,  et  velanset  blad  ved 
navn  Personal  Computer 
World,  har  nemlig  bekendt¬ 
gjort,  at  messen  fra  og  med 
1986  vil  være  lukket  for  soft¬ 
ware.  Der  vil  blot  kunne  fin¬ 


des  hardware  og  tilbehør,  for 
det  ældre  blad  -  en  seriøs  og 
business-like  grandfather  - 
mener,  software  næsten  har 
overtaget  udstillingen  (hvil¬ 
ket,  i  parentes  bemærket, 
heller  ikke  er  helt  løgn . . . 
Men  pyt,  software  er  da  ikke 
at  kimse  ad).  Nix,  siger  man, 
nul  spil.  Imidlertid  presser 
spil-producenterne  og  de 
besøgende  hårdt  på,  så  der 
er  en  chance  for  alligevel  at 
kunne  se  GAMES  på  næste 
års  PCW. 

Men  i  år  var  de  her  altså.  I 
stor  stil.  Der  var  noget  for  en¬ 
hver  smag  og  masser  at  væl¬ 
ge  blandt  -  noget  af  det  kom¬ 
mer  endda  aldrig  til  Dan¬ 
mark,  kun  det  bedste  gør. 
Snart  sagt  alle  de  kendte 
spil-leverandører  var  samlet 
på  et  sted,  så  for  joystick- 
knækkerne  var  det  blot  at  gå 
i  gang. 

Det  var  der  også  flere,  der 
gjorde,  hvorfor  spil-firmaer¬ 
nes  popularitet  ligefrem  kun¬ 
ne  måles  på  antallet  af  ivrige 
14-årige  foran  skærmene. 


Selv  de  to  første  dage,  hvor 
messen  udelukkende  var  for¬ 
beholdt  fagfolk  og  pressen, 
så  man  flere  af  de  nålestribe¬ 
de  stå  at  rykke  i  joystickene. 
MSX-firmaerne  førte  sig  væl¬ 
digt  frem,  og  især  det 
spil-fikserede  publikum  fik 
sine  lyster  styret.  De  nye 
MSX-spil  blev  vist,  heriblandt 
mange  lækre  versioner  af 
arcade-spil,  de  nyeste  end¬ 
da.  Mest  interessant  var  dog 
det  nye  interface,  der  kunne 
koble  en  MSX’-er  til  en  Com- 
pact  Disc  video-pladespiller 
med  et  storslået  resultat  til 
følge:  Grillbarernes  video¬ 
spil  a  la  ’  'Dragon  Lair’  ’  kun¬ 
ne  ses  på  MSX. 

US  Gold  ikke  godt 
nok  til  Enterprise 
På  Enterprise-standen  vistes 
meget  nyt,  heriblandt  en  flok 
US  Gold.  "Raid  over  Mos- 
cow”,  "Beach  Head”  og  fle¬ 
re.  Men  så  blev  det  også  ba¬ 
re  for  meget:  US  Gold  versio¬ 
nen  af  "Bruce  Lee"  havde 
Enterprise-folkene  nemlig 


smidt  tilbage  i  hovedet  på  US 
Gold-folkene  med  påskriften 
"For  dårlig".  Man  mente, 
sagde  Kempf  fra  Enterprise, 
at  grafikken  ikke  levede  op 
til,  hvad  en  Enterprise  kunne 
præstere.  Hårde  ord  fra  fir¬ 
maet,  men  skulle  der  laves 
software,  skulle  det  også  væ¬ 
re  godt. 

Det  samme  problem  plage¬ 
de  åbenbart  også  til  en  vis 
grad  Amstrad.  De  fleste  nye 
spil  til  maskinen  var  "con- 
versions"  eller  Amstrad- 
udgaver  af  allerede  populæ¬ 
re  udgaver  fra  Spectrum  og 
Commodore.  Mange  var 
dårligt  lavet,  og  grafikken  - 
som  på  en  Amstrad  kan  la¬ 
ves  bedre  end  begge  af  de 
førnævnte  maskiner  -  var  re¬ 
lativt  mildt  udnyttet.  Meget 
lignede  mere  Spectrum  end 
Commodore,  og  kun  et  spil 
somf.eks.  "Warlord”  lraln- 
terceptor  hørte  til  de  positive 
overraskelser.  Også  "Sorce- 
ry  Plus",  den  diskbaserede 
efterfølger  til  flotte  Sorcery, 
udmærkede  sig  ved  eminent 
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grafik.  Whoarw! !  -  For  slet  ik¬ 
ke  at  tale  om  de  flere  skærm¬ 
billeder. 

Et  bøh  fra 
Melbourne 

På  en  stor  stand  havde  Mel¬ 
bourne  House,  bogudgiver 
og  firmaet  bag  både  "The 
Hobbit  ’  ’  og  ’  ’  Exploding 
Fist”,  kreeret  et  mini¬ 
landskab  med  uhyggelige 
lys-effekter  og  sorte  af¬ 
skærmninger.  Alt  imens  ho¬ 
lografiske  billeder  af  dødnin¬ 
gehoveder  skiftede  farve, 
kørte  en  "Ringenes  Herre" 
video.  Bøh! 

Grunden  til  postyret  var  det 
nye  spil,  "Lords  of  the 
Rings".  Endnu  var  en  proto¬ 
type  ikke  færdig,  men  fra 
Melbourne  House  lød  det: 
"Hvis  du  troede,  the  Hobbit 
var  det  bedste  inden  for  ad¬ 
ventures,  så  vent  til  du  ser 
dens  storslåede  fortsættel¬ 
se".  Lord  of  the  Rings  har  al¬ 
lerede  nu  taget  programmø¬ 
rerne  over  et  år,  men  man 
lover,  det  vil  være  et  sted  un¬ 
der  juletræet. 

Ham  den  hvidskæggede- 
du-ved-nok  vil  også  kunne 
bringe  flere  Melbourne- 
nyheder.  ’  ’ Asterix"  taler  for 
sig  selv  (til  Commodore  og 
Spectrum),  og  "Fighting 
Warrior’  ’  kunne  nemt  gå  hen 
og  blive  et  endnu  større  hit 
end  "The  Way  of  the  Explo¬ 
ding  Fist’  ’ .  Keep  an  eye  on  it, 
som  de  siger. 

I  øvrigt  oplyser  Melbourne 
House,  at  omkring  juletid  vil 
efterfølgeren  til  "Exploding 
Fist”  komme  springende: 
’  ’The  Way  of  The  Exploding 
Fist  II",  med  endnu  mere 
smæld  for  pengene. 

OCEANer 
af  spil 

Der  er  også  andre  nyheder, 
det  kunne  betale  sig  at  holde 
øje  med.  Nogle  af  disse  står 
der  Ocean  på,  og  ikke  uden 
grund.  Dette  firma  er  efter¬ 
hånden  blevet  et  af  Eng¬ 
lands  førende  i  branchen, og 
dets  stand  var  da  også  en  tro 
kopi  af  US  Gold.  Af  julenyhe¬ 
der  fra  Ocean  kan  nævnes  to 
spil,  bygget  over  biograf  film: 


"Rambo:  First  Biood  II”  og 
"The  Never  Ending  Story". 
Også  "Street  Hawk”, 
"Knight  Rider"  og  "Trans¬ 
formers”  er  på  vej,  ligesom 
underafdelingen  Imagine 
Software  har  lavet  Konami 
sports-spil  (dem  fra  arca den) 
om  til  Spectrum  og  Commo¬ 
dore  udgaver.  "Kung  Fu”, 
"Tennis”,  "Hyperally”  og 
"Golf”  er  nogle  af  titlerne  i 
den  nyeste  Imagine-stald. 
Beyond  er  et  andet  firma,  der 
er  begyndt  at  røre  på  sig.  Fir¬ 
maets  salgschef,  Francis 
Lee,  udtalte  til  SOFT  Special, 
at  man  hos  Beyond  er  opsat 


på  at  vinde  en  markedsan¬ 
del  i  stil  med  US  Gold  og  Oce¬ 
an  (på  messen  kaldet  the 
Frankie  people.  Frankie  go¬ 
es  to  Ocean).  Fra  Beyond  kan 
danskerne  op  imod  decem¬ 
ber  forvente  især  "SUPER¬ 
MAN"  og  fortsættelsen  af 
"Spy  vs.  Spy".  Denne  Iler 
kaldes  "The  Island  Caper” 
og  slår  som  forventet  num¬ 
mer  et  i  både  action  og  gra¬ 
fik. 

Og  så  det  brændende 
spørgsmål,  der  vel  efterhån¬ 
den  trænger  sig  på:  Hvad 
med  US  Gold?  I  min  kalender 
står  et  kæmpe-kryds  ud  for 


navnet  og  ordene  DONT 
MISS  er  skrevet  i  rødt  med  de 
obligatoriske  fem  udråb¬ 
stegn  bagefter.  Bare  rolig,  US 
Gold  blev  IKKE  forbigået  -  de 
havde  simpelthen  for  mange 
nyheder. 

Først  og  fremmest  blev  et  par 
nye  underafdelinger  PCW- 
lanceret.  For  børn  og  barnli¬ 
ge  sjæle  kommer  en  række 
spil  under  fællestitlen 
"KIDS!”,  heriblandt  en  flok 
Donald  Duck  games.  I  den 
anden  boldgade  kommer  så 
’  ’Transatlantic  Simulati¬ 
ons":  Seriøse  strategi-  og 
krigs-spil  for  den  tænksom- 
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Superman  i  aktion  -  på  vej 
tor  at  redde  Louis  Lane. 
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me  Commodore-ejer.  Og 
midt  imellem. .  .  De  vel¬ 
kendte  standard  US  Gold.  Af 
disse  nyheder  bør  især 
"Winter  Games"  fra  Epyx 
fremhæves.  Hvad  med  en 
indendørs  skitur  juleaften? 
Ud  at  cykle  med  de  skøre, 
kunne  være  en  dansk  over¬ 
sættelse  af  Activisions  ’  'Tour 
De  France’  ’  spil,  der  allerede 
har  været  på  gaden  nogle 
uger.  De  nyere,  og  mere  in¬ 
teressante  spil  fra 
Ghostbusters-firmaet  omfat¬ 
ter  ’  'Hacker’  ’  (gæt  hvad  spil¬ 
let  handler  om)  og  de  to 
"Ballblazer"  og  "Rescue  on 


Fractalus”,  begge  to  udvi¬ 
klet  af  Lucasfilm,  der  også 
stod  på  Star  Wars  serien  og 
special  effects. 

Endnu  mere  underligt  må 
"Little  Computer  People  Re¬ 
search  Project"  siges  at  væ¬ 
re.  I  et  lille  hus  på  skærmen 
bor  nemlig  en  lille  mand, 
som  lever  sit  helt  eget  liv.  Spi¬ 
ser,  spiller  højt  på  stereoen, 
so  ver,  vasker  op,  hugger 
brænde,  vasker  sig  og  så  vi¬ 
dere  i  samme,  brogede  dur. 
"Little  Computer  People”  er 
erstatning  for  TVs  Pause-fisk 
og  så  kan  du  endda  kommu¬ 
nikere  med  dem.  Bed  din 


mand  om  at  spille  klaver,  og 
har  han  et  i  huset,  sætter  han 
sig  -  hvis  han  er  i  godt  hu¬ 
mør,  vel  at  mærke  -  hen  og 
improviserer  over  Beethoven 
(dog  ikke  særligt  vellykket, 
men  det  læres  vel).  "Little 
Computer  People"  vinder 
ved  bekendtskab.  Fem  huer. 
Men  der  var  mere,  meget 
mere!  Alligata,  Anirog,  Ar¬ 
gus  Press  Group,  Ariolasoft 
(dem  med  en  36-skærms  Vi¬ 
deo  Wall),  Bubble  Bus,  CRL, 
Domark,  Firebird,  Intercep- 
tor,  Llamasoft,  Mirrorsoft,  Sy¬ 
stem  3  og  en  overflod  af  an¬ 
dre.  De  var  der  alle  sammen; 


komplet  med  et  hav  af  nye 
software-titler.  Joystick- 
firmaerne  kan  se  lyse  tider 
imøde,  men  skal  du  ud  at  se 
på  julegaver,  bliver  valget 
svært.  Der  er  næsten  for 
meget,  der  er  godt.  Engelsk 
topkvalitet,  iblandet  lidt 
amerikanske  stænk  og  et  pist 
Transatlantic. 

Personal  Computer  World 
Show  er  software.  Lækker 
SOFTware.  Vi  vil  her  i  SOFT 
sørge  for  at  teste  det  nyeste, 
hotteste,  sejeste  fra  de  største 
firmaer,  lige  når  det  kom¬ 
mer.  Fra  Storbritannien. 

Rasmus  Kristiansen 
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QL  SPILLER  SKAK 


Sinclair  QL  har  i  hele  sin  lan¬ 
ge  levetid  manglet  gode  spil, 
ingen  tvivl  om  det.  Et  at  de 
mest  fremragende  spil  blandt 
de  8-10  stykker,  der  dog  er 
dukket  op,  er  helt  klart  skak¬ 
programmet  GLL-Chess  fra 
Psion,  markedstørt  al  Sinclair. 

Ql-Chess  der  er  kåret  som 
vinder  at  World  Microcompu¬ 
ter  Chess  Championship 
1984,  indeholder  et  utal  at  fa¬ 
ciliteter.  Der  er  skakure,  hjæl¬ 
pemidler,  mulighed  for  opstil¬ 
ling  at  en  ønsket  situation  på 
skakbrædtet  og  massevis  at 
sværhedsgrader  og  kom¬ 
mandoer. 

En  iøjnelaldende  ting  ved 
QLl-Chess  er  den  utrolig  flotte 
3D-opstilling  at  skakbrædtet. 
Her  er  QL's  høje  opløsning  ud¬ 
nyttet  til  bristepunktet  med 
flotte  skygger  på  brikkerne  og 
lignende. 

Den  traditionelle  "flade"  op¬ 
stilling  at  brædtet  kan  dog 
også  vælges.  Ved  denne  op¬ 
stilling  er  der  samtidig  plads  til 
skakurene,  lister  over  kom¬ 
mandoer  og  træk  samt  diver¬ 
se  andre  oplysninger.  Alt  det¬ 
te  må  man  undvære  ved  3D- 
opstillingen. 

Kommandoer  er  der  som 
nævnt  bunkevis  af,  mere 
præcist  omkring  20  stykker. 
Der  findes  selvfølgelig  de  obli¬ 
gatoriske  HINT  og  TAKEBACK, 
som  henholdsvis  giver  spille¬ 
ren  det  sidste  træk.  Derud¬ 
over  rummer  Ql-Chess  bl.a. 
mulighed  tor  at  genspille  et 
helt  spil  (REPLAY),  analysere 
spillet  og  udskrive  de  træk, 
computeren  overvejer  (ANA- 


SPECTRUM 

HANDELSANALYSE 


LYSIS)  og  lade  computeren 
spille  mod  sig  selv  (DEMO). 
Har  man  en  printer,  kan 
programmet  udskrive  træk¬ 
kene  efterhånden,  som  spillet 
torløber  (PRINT),  og  skulle  et 
spil  trække  i  langdrag,  kan 
du  -  naturligvis  -  gemme  og 
senere  hente  det  fra  micro- 
drive  (MDV-S). 

Kommanodne  LEVEL  bmges 
til  at  vælge  en  at  de  14  svær¬ 
hedsgrader,  hvor  compute¬ 
ren  har  tænketider  fra  under 
2  sekunder  til  uendelig  tid. 
Selv  på  det  laveste  niveau 
med  under  2  sekunders  tæn- 
ketid  yder  computeren  en  fin 
modstand. 

For  at  det  ikke  skal  være 
løgn,  kan  du  desuden  for¬ 
doble  antallet  af  niveauer  til 
28.  Det  gøres  med  komman¬ 
doen  EASY,  der  forbyder 
computeren  at  tænke,  MENS 
spilleren  selv  sidder  og  tæn¬ 
ker! 

Vi  er  ikke  et  øjeblik  i  tvivl  om, 
at  Ql-Chess  blandt  skak¬ 
programmer  placerer  sig  helt 
i  spidsen  (hvis  ikke  forrest), 
både  når  det  gælder  bruger¬ 
venlighed,  faciliteter,  hurtig¬ 
hed  og  styrke.  Som  bekræf¬ 
telse  på  sidstnævnte  prøvede 
vi  i  øvrigt  at  lade  QL-Chess 
spille  mod  et  af  de  bedste 
skakprogrammer  til  lillebror 
Spectrum  med  så  vidt  muligt 
samme  tænketid.  Resultat: 
Spectrum  var  overlegent  ud¬ 
manøvreret  i  28  træk! 
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Brugervenlighed:  10 

Dokumentation:  9 

Fængslende:  1 1 

Pris/kvalitet:  11 


■  "BIZZICOM”  er  et  forret¬ 
ningskontrolsystem  for  min¬ 
dre  handlende,  der  gerne  vil 
udøve  lagerkontrol  og  foreta¬ 
ge  analyser  over  indsamlede 
data. 

Programmet  består  af  to  dele . 
Førstedelen  er  lagerkontrol¬ 
len,  hvor  der  på  en  rimelig  let 
måde  kan  indføres  forskellige 
oplysninger  som  f.eks.  inde- 
liggende  antal  af  forskellige 
varer,  priser  på  disse,  ordrer, 
skyldnere  osv. 

Del  1  er  hovedsageligt  et  godt 
kontrolsystem  til  umiddelbar 
brug  af  den  handlende.  Det 
bmges  egentlig  kun  til  opsyn 
med  lager  og  overblik  over 
eventuelle  indkøb. 

Del  2,  analysedelen,  skal  ha¬ 
ve  indloadet  de  dele  af  Del  1 , 
som  man  ønsker  behandlet. 
Derefter  kan  man  ellers  få  op¬ 
lysninger  om  profit,  tab, 
momsbetaling.  Altså  kort  sagt 
en  slags  kortsigts  analyse 
over  forretningens  økonomi¬ 
ske  holdbarhed. 

Et  program  som  "BIZZICOM” 
er  ikke  netop  Spectmm  s 
stærke  side  med  dens  lange 


load/save  tid,  men  hvis  man 
har  tålmodighed  er  ”  BIZZI¬ 
COM”  et  yderst  gedigent 
salgsanalyse  og  bogholderi¬ 
program.  Bl.a.  fordi  forfatte¬ 
ren  har  valgt  at  sikre  bruge¬ 
ren  mod  alt  for  store  tab  af  da¬ 
ta  ved  at  lave  tvungen  sav- 
ing  efter  100  indtastede  va¬ 
rer/elementer. 

Hvad  angår  kapaciteten  af 
"BIZZICOM”  skal  vi  nævne, 
at  der  i  Del  1  er  plads  til  390 
varer,  og  at  Del  2  kan  be¬ 
handle  500  varer.  For  at  kom¬ 
me  over  dette  kan  man  have 
flere  Del  1  filter,  men  så  bliver 
det  mere  besværligt . 
"BIZZICOM”  er  nok  for  småt 
og  for  langsomt  til  at  henven¬ 
de  sig  til  købmænd,  men  til 
folk  med  et  lille  varelager,  og 
til  større  butikker,  der  har  helt 
separate  lagre  som  f.eks.  øl¬ 
lagret,  er  det  tydeligvis  meget 
velegnet. 


Betjening  1 1 

Hastighed  (når  loadet)  10 
Opbygning  10 

Pris/kvalitet  10 
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■  Endelig,  endelig  findes  der 
en  hovedperson  i  et  spil,  som 
du,  kære  læser,  rigtigt  kan 
identificere  dig  med.  Spillet 
hedder  Herbert’ s  Dummy 
Run. 

Hovedpersonen,  der  hedder 
Herbert,  er  en  styg  lille  baby, 
som  er  blevet  væk  fra  sine 
torældre  i  et  stormagasin.  Du 
skal  sd  styre  Herbert  tilbage  til 
hans  torældre,  der  står  og 
venter  i  stormagasinets  '  'bør- 
neathentningsrum ' ' . 

Herbert’ s  Dummy  Run  er  ef¬ 
terfølgeren  til  "Everyone's  a 
Wally".  som  vi  anmeldte  i 
AOD  nr.  5/6.  Dengang  skrev 
vi  om  Wally  og  hans  venner, 
at  de  var  med  i  en  meget  god 
og  meget  ny  type  spil. 
Mikro-Gen,  der  har  lavet  spil¬ 
lene,  er  dog  (som  de  fleste 
andre  softwarehuse)  faldet  for 
at  lave  let  ændrede  kopier  af 
deres  tidligere  bestsellere,  og 
dette  spil  er  da  også  et  pro¬ 
dukt  af  en  sådan  handling, 
selv  om  det  stadig  er  meget 
sjovt  og  underholdende. 
Grafikken  er  opbygget  fuld¬ 
stændig  som  i  forgængeren, 
men  da  der  i  Herbert’s  Dum¬ 
my  Run  kun  figurerer  1  per¬ 
son  mod  6  i  "Everyone's  a 
Wally"  er  den  trods  alt  lidt 
dårligere  end  det  11-13,  vi 
gav  til  Wally. 

Lydsiden  er  svag.  Bortset  fra 
indledningsmelodien  høres 
der  kun  små  krr-krr  og  beep 
lyde,  når  Herbert  dummer 
sig. 

En  konklusion  på  Herbert’ s 
Dummy  Run  må  være,  at 
Mikro-Gen  på  trods  af,  at  de 
har  taget  ret  meget  fra  for¬ 
gængeren,  alligevel  har  fået 
fremtryllet  et  underholdende 
spil,  med  enkelte  nye  ting. 

I  øvrigt  er  der  en  detalje,  som 
især  du  vil  elske  . . . ,  der  gi¬ 
ves  ikke  point,  men  vingum¬ 
mier  efter  hvor  godt  du  klarer 
dig.D 


UDVIKLING  I 
EVENTYR 

■  Skal  man  dømme  efter  an¬ 
tallet  af  adventures  på  mar¬ 
kedet,  må  de  virkelig  være 
det  helt  store  nummer.  Hvem 
mon  køber  alle  de  adventu¬ 
res,  for  hvis  det  er  dig,  så  tag 
lige  og  se  her. 

Det  kan  lade  sig  gøre,  fordi 
du  med  dette  program  kan 
skabe  dine  egne  adventures 
på  op  til  35K,  og  dermed  slip¬ 
pe  for  at  købe  adventures. 
The  SUiill  er  ikke  lige  sådan 
at  gå  til,  men  der  medfølger 
en  letforståelig  fyldig  manual 
(engelsk).  Man  har  hele  tiden 
to  hovedmenuer  at  holde  sig 
til,  og  hvis  man  begynder  at 
rode  sig  dybt  ind  i  program¬ 
met,  har  man  også  diverse 
undermenuer.  Menuerne 
minder  meget  om  hinanden. 
Nogle  af  The  Ouill’s  fortræffe¬ 
ligheder  er  det  indbyggede 


supersprog,  som  du  kan  ud¬ 
nytte  uden  at  have  besvær 
med  svarmeldinger  til  spille¬ 
ren.  Endvidere  er  der  mulig¬ 
hed  for  smarte  pointsystemer, 
og  de  færdige  eventyr  bliver 
meget  hurtige. 

Ønsker  man  virkelig  at  kaste 
sig  ud  i  eventyr  skriveriet,  fås 
der  også  et  program  kaldet 
"The  Illustrator"  fra  samme 
firma,  hvormed  man  kan  illu¬ 
strere  sit  eventyr  med  flotte 
farvegrafik  billeder. 

Bag  i  den  medfølgende  ma¬ 
nual  står:  Hvis  du  regner  med 
at  sælge  et  eventyr  skrevet 
med  The  Quill.  ville  vi  være 
taknemmelige,  hvis  du  et 
sted  i  eventyret  ville  nævne, 
at  det  var  skrevet  med  ’  'The 
Quill".  Sd  her  kunne  du  må¬ 
ske  hente  lidt  gryn. 

Betjening:  10 

Hastighed:  1 1 

Opbygning:  10 

Pris/kvalitet:  10 
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Det  lader  til,  at  de  fleste  soft¬ 
warefabrikanter  beundrer 
programmet  ’  ’  Hobbit  ’  ’  fra 
Melbourne  House  med  dets 
uafhængige  figurer,  der  rea¬ 
gerer,  uden  at  spilleren  be¬ 
høver  at  være  til  stede. 

I  hvert  fald  er  der  mange, 
som  er  begyndt  at  gå 
Melbourne-huset  i  bedene 
med  adventures,  der  kan  det 
samme.  I  fuld  overensstem¬ 
melse  med  dette  har  soft¬ 
warehuset  Gargoyle  games 
netop  smidt  arcade/adventu- 
respillet  ”Dun  Darach’’  på 
markedet. 

Dette  adventures  handling  er 
ret  traditionelt.  Du  er  manden 
Cuchulain,  der  efter  at  have 
været  i  krig,  får  kidnappet 
din  bedste  ven  Loeg  og  så 
skal  finde  ham  i  byen  Dun 
Darach. 

Spillet  har  de  selvreagerende 
figurer  fra  Hobbitten  plus  Val- 
hallas  tegnefilmsagtige  frem- 
stillingsmåde,  men  desværre 
har  figurerne  ikke  nogle  spe¬ 
cielle  præg.  Bortset  fra  at  de 
bærer  på  nogle  forskellige 
ting,  og  at  nogle  af  dem  stjæ¬ 
ler. 

Figurerne  i  spillet  (ca.  1 1)  er 
også  kun  tegnet  på  3  forskel-  * 
lige  måder.  Dig  selv  plus  en 
mand  og  en  kvinde,  der  så 
hver  for  sig  symboliserer 
samtlige  mænd  og  kvinder. 
Til  spillets  ros  skal  siges,  at  selv 
om  der  kun  er  tre  sprites,  så  er 
de  meget  flot  lavet,  og  om¬ 
trent  syv  cm.  høje. 

Spillets  plot  med  at  handle  og 
sælge,  bytte  og  stjæle  er  tem¬ 
melig  ordinært  og  det  sam¬ 
me  er  målet  (finde  din  ven), 
men  alligevel  er  ”Dun  Da¬ 
rach”  et  gedigent  adventu¬ 
re,  omend  det  er  ret  ensfor¬ 
migt.  □ 

(Twilight) 

Grafik  1 0 

Lyd  (næsten  ingen) 

Action  (Ingen) 

Fængslende  8 

Pris/kvalitet  9 


I  SELSKAB  MED 
SCARFACE 


■  Et  rigtigt  gangsterarca- 
de/adventure,  serveret  med 
ted  gratik,  morsom  tekst  og 
rigtig  action  .  .  var  det  no¬ 
get? 

Spillet  hedder  Mugsy.  er  Ira 
Melbourne  House  og  er  et  år 
gammelt,  men  på  trods  at,  at 
det  er  et  (i  denne  branche)  al¬ 
derstegent  program,  er  det  al¬ 
ligevel  sjovt  og  underholden¬ 
de. 

Du  er  gansterbossen  Mugsy, 
der  skal  prøve  at  overleve  i 
dit  distrikt,  uden  at  rage  uklar 
med  hverken  politiet  eller 
gangsterne .  Din  egen  bande 
prøver  op-  og  nedture,  alt  et¬ 
ter  hvordan  du  handler, 
m.h.t.  køb  at  våben,  bestik¬ 
kelser  og  antallet  at  klienter 
(hæ  hæ). 

Spillet  er  bygget  op  som  en 
tegneserie  med  billeder,  der 


kommer  et  at  gangen  og 
oven  i  dem  noget  tekst. 
Billederne  er  meget  tlotte.  De 
er  tegnet  med  et  tegnepro¬ 
gram  tra  Melbourne  House  - 
Melbourne  Draw. 

Teksten  er  ikke  engelsk,  men 
amerikansk  med  ted  gang¬ 
sterslang  at  den  værste  (bed¬ 
ste?)  slags.  Hvis  du  t.eks.  bru¬ 
ger  mange  penge  på  våben, 
siger  din  næstkommande¬ 
rende:  Cripes,  Boss,  The  guys 
could  tight  a  war  with  the 
hardware  that  TI  buy. 

På  den  måde  er  hele  spillet 
fyldt  op  med  den  fedeste 
slang. 

Når  et  år  er  gået,  vises  der  en 
lille  mikrofilm,  hvor  du  enten 
ser  en  restaurant  under  et 
"shoot  up"  eller  et  gangster¬ 
oprør  på  åben  gade. 

En  gang  imellem  når  du  ra- 
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■  Et  eventyr,  der  består  af  tolv 
eventyr,  som  tilsammen  ud¬ 
gør  eventyret  tra  tør. 
Forvirret?  Hvorfor  dog  det, 
ovenstående  er  nemlig  fuld¬ 
kommen  korrekt. 

I  The  Runes  of  Zendos  er  må¬ 
nederne  nemlig  blevet  stjålet . 
Ja,  vi  mener  januar,  februar, 
marts  og  co.  Og  det  er  da  en 
helts  (din)  pligt  at  betri  dem. 
Det  er  den  onde  troldeskurk 
Zendos.  der  har  stjålet  dem, 
og  spærret  dem  inde  på  sit 
slot  tolv  torskellige  steder,  i 
tolv  timeglas.  Det  skal  du  nu 
ikke  være  ked,  tor  ellers  hav¬ 
de  vi  ikke  fået  dette  udmær¬ 
kede  eventyr. 

For  at  tå  månederne  ud  at  ti¬ 
meglassene  kræves  det,  at 
man  tyder  den  kode,  der  står 
nederst  på  hvert  timeglas.  I 
følge  omslaget  skulle  der  væ¬ 
re  hjælp  over  det  hele  i  pro¬ 


grammet  og  i  selve  omslaget, 
men  tro  nu  ikke  at  The  Runes 
of  Zendos  er  en  stor  loppet¬ 
jans  .  .  . 

Når  du  bevæger  dig  rundt  og 
kæmper,  spiser  og  tager  ting, 
så  illustreres  dine  handlinger 
på  den  øverste  del  at  skær¬ 
men  med  en  rimelig  gratik, 
sproget  derimod  er  på  nogle 
punkter  rædselsfuldt . 
Samtidig  med  at  programmet 
godtager  lange  sætninger 
som  "Attack  the  guard  with 
the  mighty  axe",  så  forstår 
det  ikke  engang,  at  "get"  er 
synonym  til  "take". 
Undervejs  i  spillet  kan  man 
skifte  mellem  de  tolv  eventyr 
med  at  skrive  "Adventure 
one,  two,  osv."D 
Gratik:  8 

Lyd:  (næsten  ingen) 

Fængslende:  9-10 
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HORRIBEL 

HERMELIN 

■  Det  er  en  gåde.  et  mysterie 
og  en  fantastisk  hemmelig¬ 
hed.  Hvordan  mon  Gremlin 
Graphics  bærer  sig  ad  med 
at  lave  sådan  et  spil!  Gosh! 
Spillet  Sam  Stoat  Safebreaker 
er  simpelt  hen  selvskreven  til 
konkurrencen  om  mest  irrite¬ 
rende,  mest  tejlfyldte  og  mest 
traditionelle  spil,  med  noget 
at  den  mest  skøre  grafik,  ver¬ 
den  endnu  har  set. 

I  dette  spil  skal  du  med  Sam 


Stoat  (Hermelin)  bryde  ind  i 
fore  huse  for  at  skatte  grunker. 
Husene  er  ens,  men  tempoet 
bliver  hurtigere  og  hurtigere 
tra  hus  til  hus.  Du  bliver  jagtet 
at  underlige  dimser  range¬ 
rende  lige  tra  attaldsbunker 
til  bygnomer!  og  udover  at 
nævne,  at  spillet  har  mange 
bugs,  er  der  ikke  mere  at  sige 
omdetO  ra - 
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FRYGTLØS 

COWBOY 

■  Året  er  1 885  i  en  hed  ørken 
et  sted  i  Det  vilde  Vesten.  En 
gruppe  berygtede  bankrøve¬ 
re  har  slået  sig  ned  i  nærhe¬ 
den  al  en  gammel  lorladt  mi¬ 
neby  midt  inde  i  et  farligt 
indianer-territorium.  Udbyttet 
al  deres  sidste  røveri  har  de 
gemt  rundt  omkring  i  byen, 
som  konstant  hjemsøges  al 
rødhuder,  klapperslanger  og 
hungrende  gribbe,  lor  ikke  at 
snakke  om  skarptskydende 
røvere,  der  passer  på,  at  in¬ 
gen  nærmer  sig  deres  kostba¬ 
re  skatte. 


ger  rigtig  meget  uklar  med  en 
eller  anden  gruppe,  kommer 
du  ud  lor  et  opgør  med  '  The 
Hitman  Irom  Detroit",  og  så 
gælder  parolen  "Lev  og  lad 
dø  " .  Under  de  situationer  gad 
jeg  ikke  være  tilskuer.  Denne 
sektion  al  spillet  er  ren  action. 

Lydsiden  er  god  med  ma¬ 
skingeværlyd  og  melodi,  når 
der  altså  er  noget  lyd.O 
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Sådan  er  situationen  i  Talent 's 
adventure  WEST  til  Sinclair 
QL.  Du  har  til  opgave  at  be¬ 
væge  dig  ind  i  minebyen, 
samle  røvernes  udbytte  og 
derefter  skalle  oplysninger 
om,  hvordan  du  slipper  hel¬ 
skindet  gennem  ørkenen  til¬ 
bage  til  din  hjemstad.  Ved 
hjemkomsten  bliver  du  be¬ 
dømt  med  nogle  points,  som 
afhænger  al  dine  præstatio¬ 
ner  og  samtidig  udnævnes 
du  til  en  tilsvarende  rang  - 
toppen  al  karieren  er  sherill, 
hvor  adventuren  er  løst. 


KARTOTEK 
PÅ  DANSK 


■  Kartobase  464  er  et  helt 
igennem  dansk  kartoteks 
program  til  Amstrad,  der  kan 
erhverves  på  såvel  bånd  som 
disk.  Programmet  giver  mu¬ 
lighed  lor  at  oprette  kartote¬ 
ker  med  op  til  10  felter  pr. 
kort,  og  op  til  23  K  data  i  alt. 
Programmet  har  en  del  facili¬ 
teter  ud  over  de  obligatoriske: 

Ved  søgning  kan  man  vælge 
at  søge  på  et  eller  flere  be¬ 
stemte  søgeord.  Eller  man 
kan  opgive,  at  man  vil  have 
alle  de  kort  ud,  hvor  l.eks,  sal¬ 
doen  er  negativ. 

Søgningen  er  dog  ikke  udvi¬ 
det  til  at  kunne  klare  en¬ 
ten/eller  kriterier.  Måske  ved 
vi,  at  en  eller  anden  lyr  hed¬ 
der  Hansen  til  efternavn  og 
enten  Hans  eller  Henrik  til  for¬ 
navn.  Til  gengæld  er  søgnin- 


Inden  du  kommer  så  langt, 
har  du  imidlertid  nok  al  pro¬ 
blemer  med  at  skyde  røvere 
og  slanger,  holde  gribbene 
på  afstand  og  undvige  vilde 
indianerstammer.  Desuden 
er  du  nødt  til  at  linde  ekstra 
patroner  til  din  seksløber  og 
samle  andre  ting  -  l.eks.  dy¬ 
namit,  tændstikker,  en  flaske 
med  nitroglycerin  og  en 
skovl.  En  række  af  disse  skal 
du  nemlig  bruge  i  dit  forsøg 
på  at  komme  frem  til  skatte¬ 
ne. 

’  ’ WEST’  ’  er  desværre  udeluk- 


gen  ligesom  sorteringen  skre¬ 
vet  i  ren  maskinkode,  så  det 
går  pænt  hurtigt. 

Sorteringen  kan  i  øvrigt  fore¬ 
tages  i  både  opadgående  og 
nedadgående  rækkefølge, 
efter  et  valgfrit  felt.  Der  er  mu¬ 
lighed  for  at  lave  et  Password 
på  ens  tophemmelige  karto¬ 
teker,  der  så  skal  indtastes 
hver  gang,  man  henter  sit 
kartotek  ind. 

Ved  printerudskrilt  kan  man 
vælge  mellem  3  forskellige 
formater: 

1 :  Hvert  kort,  et  telt  pr.  linie,  ef¬ 
ter  hinanden.  2:  To  kort,  et  felt 
pr.  linie,  ved  siden  af  hinan¬ 
den.  3:  Et  kort  pr.  linie,  max.  3 
felter. 

Man  kan  enten  udskrive  hele 
kartoteket,  eller  man  kan 
give  betingelser,  som  under 
søgning,  for  hvilke  kort  der 


kende  et  tekst -eventyr.  Der  er 
på  trods  af  mulighederne  i 
QL'ens  store  hukommelse  og 
direkte  adgang  til  over  200  K 
på  Microdrive  ikke  andet 
end  et  enkelt  åbentskærms- 
billede,  som  dog  til  gengæld 
er  umådeligt  flot.  Med  hen¬ 
syn  til  forståelse  af  spillerens 
ordrer,  klarer  WEST  sig  rime¬ 
ligt  med  sine  omkring  200  ord 
og  lige  så  mange  talemåder. 

Der  er  mange  spændende 
oplevelser  at  hente  i  de  mere 
end  1 30  steder  i  spillet,  men 
nogen  egentlige  nyskabelser 
inden  for  adventures,  finder 
vi  ingen  af  WEST  er  så  at  sige 
det  klassiske  eksempel  på  et 
godt  adventureprogram,  som 
alt  i  alt  er  ganske  fornøjeligt  at 
spille.  □ 


Grafik  og  lyd:  Ingen 

Forståelse:  9 

Action:  1 1 

Fængslende:  9 

Pris/kvalitet:  9 


skal  udskrives. 

Endelig  kan  man  ændre  på 
feltteksten  og  gemme  og  hen¬ 
te  sit  kartotek  for  bånd  eller 
disk. 

Manualen,  der  følger  med  i  et 
ringbind,  består  af  24  dansk¬ 
sprogede  sider,  der  gennem¬ 
går  programmet  trin  tor  trin. 
Den  største  ulempe  ved  pro¬ 
grammet  er.  at  hvert  enkelt 
felt  maximalt  kan  indeholde 
25  bogstaver,  og  det  er  ofte  for 
lidt. Også  i  forbindelse  med 
søgning  og  printerudskrift 
mangler  programmet  lidt  fle- 
xibilitet.  PCS  kalder  dog  selv 
programmet  for  semiprofessi- 
onelt,  så  det  må  være  rime¬ 
ligt  nok,  og  til  199  kr.  for 
båndudgaven  er  program¬ 
met  da  også  anvendeligt  i 
mange  sammenhænge. □ 
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Jet  Jones 


■  Dette  spil,  kaldet  Jet  Jones 
ligner  virkelig  et  købespil.  Ha¬ 
stigheden  er  stor,  og  grafikken 
god. 

Du  skal  flyve  rundt  i  forskellige 
rum,  og  skyde  onde  robotter. 
Dette  er  ikke  altid  lige  nemt, 
men  fortvivl  ikke!  Efter  hver 
skærm,  bliver  robotterne  hur¬ 
tigere  og  hurtigere.  Efter  nog¬ 
le  få  skærme,  skal  man  virke¬ 
lig  have  kontrol  over  situatio¬ 
nen  for  ikke  at  dø. 

For  at  sikre,  at  der  ikke  sker  i 
indtastnigen,  er  der  check¬ 
sum  på  datalinier.  Checksum 
betyder,  at  programmet  selv 
tester  om  der  er  fejl  i  indtast¬ 
ningen. 

Spillet  kræver  joystick  i  port 

2.0 


PROGRAM!  JET  JONES. 935 

1  POKE  5338 1,01 POKE  53369,0 
IPRINT'CCLRJ* 

10  FOR  J" 15873  TO  1B3191READ  QIU1-UJ+Q 
I POKE  J, OINERT  J 

30  IF  UK  >31146  THEN  PR  1  NT " <  L . 8LA A ) SP 
RITE  DATA  ERROR*! END 
30  FOR  J-49153  TO  49843IREA0  QIUI-UI+Q 
I  POKE  J  ,Q  i  NEXT  J 

40  IF  UK  >1 1 1437  THEN  PR INT*< L. BLAA >M 
C  DATA  ERROR "«EhO 
50  POKE  53280 ,0  > OOSUB  900 
60  G08UB  800 

70  POKE  54296, 15* SP-2040* POKE  SP,248 
i POKE  SP-U  ,250 »POKE  SP^2,251 
i POKE  SP+3,252 

75  POKE  SP*4 ,253  *  POKE  SP+5,251 
i POKE  SP+6 ,254  i POKE  253,0 
i POKE  53261 , 100 i POKE  53248,0 
80' POKE  53269,61 «P0KE  53285,4 
*  POKE  53286, 2 1 POKE  53287,1 
* POKE  53288, 7 i POKE  53289,7 
90  POKE  53290, 8 »POKE  53291,3 
»POKE  53292,1 »POKE  53293,7 
»POKE  53276,44 
100  PRINT-<CLR,CRSR  NED4 , 

SPACE  >  'ET  'ONES  i  • 

110  PR INT"<  CRSR  NED3 , SPACE ) I AZ  A  I  00 

i  ■ 

120  PR  INT"<  CRSR  hC03  , SPACE  )  I  AZA  «J0 

i  ■ 

130  PR INT*<  CRSR  NED3, SPACE) |AZA  |A 
l  ■ 

140  PRINTE CRSR  NED3 , SPACE ) | AZA  -AO 


Bo  Johansen 


150  V *53248 * POKE  53264,64 
i FOR  K-V+4  TO  V*12  STEP  2 
J  POKE  K , 120  *  NEXT  K 
160  POKE  V+3 ,80  *  POKE  V«-5,110 
»POKE  V 4-7 , 1 40 » POKE  V+9,170 
»POKE  V  ♦  1 1  , 200 

165  POKE  53277, O » POKE  53271,0 
170  POKE  V* 1 ,70  *  FOR  J-0  TO  120  STEP 
. 1 »POKE  V , J  *  NEXT  J 
200  FOR  J-l  TO  3000 »NEXT 
210  REM  SCREEN  1 
220  M 1  *  1  *  M2  *0 » M3  *0 » M4  *0 » LE  *  1 
» OOSUB  500 
230  GOSUB  600 
240  REM  SCREEN  2 
250  Ml-1 »M2-1 «M3-0«M4-0*LE-2 
»GOSUB  500 
260  GOSUB  600 
270  REM  SCREEN  3 
280  Ml-1 »M2-1 »M3-1 »M4-0ILE-3 
i GOSUB  500 
290  GOSUB  600 
300  REM  SCREEN  4 
310  Ml-1 «M2»1 »M3-1 «M4-1 »LE-4 
»GOSUB  500 
320  GOSUB  600 
330  REM  SCREEN  5 
340  Ml-1 »M2-1 »M3-1 »M4-1 »LE -5 
»GOSUB  500 
350  GOSUB  600 

360  FOR  J-l  TO  3000 »NEXT  J 
370  PRINT"< CLR,HVID,SPACE16)X“- I  I  ITT 
-  I  I -»POKE  53269,0 

380  PR INT"<  GUL , SPACE  >\ISS ION  COMPLET 
ED.  HECTOR  7.98  CLEARED. ■ 

390  PRINTTV  BL  AA,  SPACE  )éLL  ROBOTS  OES 
TROYED . • 

400  PR INT"<  CRSR  NED5 , SPACE  10)  YOUR  SC 
ORE  IS  ■<  LE-1  )*<  10-A)*100 
410  FOR  J-l  TO  5000 « NEXT  J 
420  RUN  50 

500  PRINfT-<  CLR, SORT)  *1 
510  FOR  J-l  TO  23* PR I  NT" 

I  \m> 

»NEXT  J 

515  IF  LE -5  THEN  POKE  53277,60 
»GOTO  520 

516  POKE  53277,0 

520  PR  I NT "< HOME, CRSR  NED6 , 

SPACE32)  |< HVID, SPACE )LEVEL< CRSR  N 
ED, CRSR  VENSTRE4 ) "LE 
525  PR INT"<  HOME ,CRSR  NED3 , 

CRSR  HO JRE34 )FUEL * ■ 

530  POKE  52993, Ml »POKE  52994, M2 
»POKE  52895, M3* POKE  52996, M4 
540  I  -67 ♦<  Ml  *4  )  ♦<  M2*8  )  ♦<  M3*16>*<  M4*3 
2) 

550  POKE  53269, I »POKE  254,0 
555  POKE  251 ,RND< 1 >* 10*97 
»POKE  252,RND<1>*7 
560  SYS  49767 
570  RETURN 
600  L-PEEKC254) 

610  IF  L-0  THEN  RETURN 

620  IF  L-l  THEN  700 

630  IF  L-2  THEN  750 

640  RETURN 

700  FOR  J-l  TO  3000* NEXT 
710  PR INT“<  CLR ,HV ID)  " » POKE  53269,0 
»PRINT-  YOUR  SCORE  IS  ■< 

LE-1  )*<  1  O-A >  4100 
720  FOR  J-l  TO  3000 »NEXT« RUN  50 
750  FOR  J-l  TO  1000 »NEXT 
760  PRINT"< CLR, HVID) " »POKE  53269,0 

*  PR INT"<  GUL ,SPACE8 )— UEL  TOO  LOU" 
770  GOTO  700 

800  PR INT-< CLR, HVID, SPACE  1 1 >-HOOSE  S 
PEED  LEVEL  • 

810  PR INT"<  CRSR  NED , GUL , 

SPACE5 )9 >  IS  9LTO  1)IS  -é 

•I  * 

820  PRINT"<  BLAA ,SPACE8 )EASY 
IMPOSS IBLE " 

830  INPUT"<  GRAA2 ,CRSR  NED3  JLEVEL  <1- 
9)  *  *  1 A 

840  IF  A< 1  OR  A >9  THEN  800 
850  POKE  53247, A« RETURN 
900  POKE  657, 128 »POKE  53272,23 
910  PR I NT "< CLR, CRSR  NED, HVID, 

SPACE  18)  |  . 

915  PR INT"<  CRSR  NED , SPACE  15 ) PRESENTS 

*  ■ 

920  A*<  1  )-"  — 

925  A*<2)-“  'ET  VQNES  ■ 


930  A*<  3)-"  — — 

935  A*4)--<CRSR  NED  , SPACE  16  ) AND  THE  - 
940  A*<5)--<CRSR  NED , SPACE  12 )MYSTERY 
OF  IA2A- 

942  POKE  53281,0 
945  PR INT“<  HOME ,CRSR  NED 10 ) - 
950  FOR  J-l  TO  5 » POKE  646 ,RNO<  l 
»PRINT  A«<J)*NEXT  J 
960  GET  B**IF  B*<>-"THEN  RETURN 
970  GOTO  945 

995  REM  tt*********************** 

996  REM  *  SPRITE  DATA  * 

997  REM  ************************* 

1000  DATA  0,0,0,3,240,0,6,8 
1010  DATA  0,6,248,0,7,120,0,23 
1020  DATA  120,0,51,240,0,48,0,0 
1030  DATA  55,0,0,55,255,128,55,128 
1040  DATA  0,112,0,0,87,248,0,87 
1050  DATA  254,0,215,254,0,144,6,0 
1060  DATA  240,6,0,0,6,0,40,7 
1070  DATA  0,84,0,0,170,0,0,2 
1080  DATA  0,0,0,0,15,192,0,16 
1090  DATA  96,0,31,96,0,30,224,0 
1100  DATA  30,232,0,15,204,0,0,12 
1110  DATA  0,0,236,1,255,236,0,1 
1120  DATA  236,0,0,14,0,31,234,0 
1130  DATA  127,234,0,127,235,0,96,9 
1140  DATA  0,96,15,0,96,0,0,224 
1150  DATA  20,0,0,42,0,0,85,2 
1160  DATA  O, O, O, O, O, O, O, O 
1170  DATA  O, O, O, O, O, O, O, O 
1180  DATA  O, O, O, O, O, O, O, O 
1190  DATA  0,0,0,185,222,222,0,0 
1200  DATA  O, O, O, O, O, O, O, O 
1210  DATA  O, O, O, O, O, O, O, O 
1220  DATA  O, O, O, O, O, O, O, O 
1230  DATA  0,0,0,0,0,0,0,191 
1240  DATA  O, O, O, O, O, O, O, O 
1250  DATA  O, O, O, O, O, O, O, O 
1260  DATA  O, O, O, O, O, O, O, O 
1270  DATA  0,168,0,2,170,0,2,238 
1280  DATA  0,2,238,0,2,170,0,2 
1290  DATA  154,0,2,86,0,2,170,0 
1300  DATA  O, O, O, O, O, O, O, O 
1310  DATA  0,0,0,0,0,0,0,119 
1320  DATA  O, O, O, O, O, O, O, O 
1330  DATA  O, 0,0, O, O, O, O, O 
1340  DATA  O, O, O, O, O, O, O, O 
1350  DATA  0,0,0,5,85,80,42,170 
1360  DATA  168,255,255,255,42,170,168, 
5 

1370  DATA  85,80,0,0,0,0,0,0 
1380  DATA  O, O, O, O, O, O, O, O 
1390  DATA  O, O, O, O, O, O, O, 2 
1400  DATA  O, O, O, O, O, O, O, O 
1410  DATA  O, O, O, O, O, O, O, 7 
1420  DATA  255,240,60,0,30,32,0,2 
1430  DATA  35,193,226,34,65,34,35,201 
1440  DATA  226,32,8,2,32,14,2,33 
1450  DATA  0,66,32,255,130,60,0,30 
1460  DATA  7,255,224,0,0,0,0,0 
1470  DATA  O, O, O, O, O, O, O, O 
1480  DATA  O, O, O, O, O, O, O, 8 
1490  DATA  0,0,28,0,0,42,0,0 
1500  DATA  8, O, O, 8, O, O, 8, O 
1510  DATA  0,8,0,127,255,252,255,255 
1520  DATA  254,225,104,94,239,107,222, 
227 

1530  DATA  107,222,239,105,222,239, 
107,222 

1540  DATA  239,107,222,239,8,70,255, 
255 

1550  DATA  254,127,255,252,0,0,0,0 
1900  REM  ************************* 
1910  REM  *  MC  * 

1920  REM  ************************* 
2000  DATA  162,200,165,251,157,31,7, 
165 

2010  DATA  252 , 157 ,31 ,219 ,2D2 ,208 ,243, 
96 

2020  DATA  173,0,220,106,144,13,106, 
144 

2030  DATA  23,106,144,33,106,144,48, 
106 

2040  DATA  144,63,96,174,1,208,224,53 
2050  DATA  144,236,206,1,208,76,22,192 
2060  DATA  174,1,208,224,187,176,226, 
238 

2070  DATA  1,208,76,25,192,174,0,208 
2080  DATA  224,26,144,216,206,0,208, 
162 

2090  DATA  249,142,248,7,76,28,192,174 
2100  DATA  0,208,224,253,176,201,238,0 
2110  DATA  208,162,248,142,248,7,76,31 


2120  DATA  192,165,253,240,1,96,173, 

248 

2130  DATA  7,201,249,240,7,169,1,133 
2140  DATA  253,76,120,192,169,2,133, 
253 

2150  DATA  173,0,208,141,2,208,173,1 
2160  DATA  208,141,3,208,169,2,13,21 
2170  DATA  208,141,21,208,96,165,253, 
208 

2180  OATA  9,169,253,45,21,208,141,21 
2190  DATA  208,96,201,1,240,13,206,2 
2200  DATA  208,173,2,208,208,243,169,0 
2210  DATA  133,253,96,238,2,208,173,2 
2220  DATA  208,208,247,169,0,133,253, 
96 

2230  DATA  173,1,207,208,1,96,173,4 
2240  DATA  220,41,3,240,11,201,1,240 
2250  DATA  17,201,2,240,23,76,238,192 
2260  DATA  238,4,208,238,4,208,238,4 
2270  OATA  208,96,206,4,208,206,4,208 
2280  DATA  206,4,208,96,238,5,208,238 
2290  DATA  5,208,238,5,208,96,206,5 
2300  DATA  208,206,5,208,206,5,208,96 
2310  DATA  173,2,207,208,1,96,238,7 
2320  DATA  208,238,7,208,173,4,220,41 
2330  DATA  1,240,10,238,6,208,238,6 
2340  DATA  208,238,6,208,96,206,6,208 
2350  DATA  206,6,208,206,6,208,96,173 
2360  DATA  3,207,208,1,96,169,160,141 
2370  OATA  9,208,238,8,208,238,8,208 
2380  DATA  238,8,208,238,8,208.96.173 
2390  OATA  4,207,208,1,96,173,0,208 
2400  DATA  205,10,208,144,5,176,9.76 
2410  DATA  83,193,206,10,208,76,83,193 
2420  DATA  238,10,208,173,1,208,205,11 
2430  OATA  208,144,3,176,5,96,206,11 
2440  DATA  208,96,238,11,208,96,173.30 
2450  DATA  208,170,41,3,201,1,240,5 
2460  DATA  201,2,240,4,96,76,240.193 
2470  OATA  169,0,133,253,234,234,234. 
234 

2480  DATA  234,234,138,106,106,106, 
176,10 

2490  DATA  106,176,24,106,176,38,106, 
176 

2500  DATA  52,96,169,0,141,1,207,169 
2510  DATA  251,45,21,208,141,21,208,32 
2520  DATA  214,193,96,169,0,141,2,207 
2530  DATA  169,247,45,21,208,141,21, 
208 

2540  OATA  32,214,193,96,169,0,141,3 
2550  DATA  207,169,239,45,21,208,141, 
21 

2560  OATA  208,32,214,193,96,169,0,141 
2570  OATA  4,207,169,223,45,21,208,141 
2580  DATA  21,208,32,214,193,96,169,0 
2590  OATA  141,5,212,169,252,141,6,212 
2600  DATA  169,1,141,1,212,169,129,141 
2610  OATA  4,212,169,128,141,4,212,96 
2620  OATA  32,214,193,162,0,160,0,140 
2630  DATA  248,7,140,39,208,136,208, 
247 

2640  DATA  202,208,242,169,1,133,254, 
96 

2650  DATA  173,2,208,141,8,212,169,0 
2660  DATA  141,12,212,169,241,141,13, 
212 

2670  DATA  169,33,141,11,212,169,32, 
141 

2680  DATA  11,212,96,172,255,207,162, 
255 

2690  DATA  202,208,253,136,208,248,96, 
238 

2700  DATA  0,207,240,1,96,206,13,208 
2710  DATA  169,48,141,12,208,173,13, 
208 

2720  DATA  201,80,240,1,96,169,2,133 
2730  DATA  254,96,162,10,169,208,157,2 
2740  OATA  208,202,208,250,162,48,142, 
O 

2750  OATA  208,142,1,208,162,1,142,32 
2760  DATA  208,162,12,142,33,208,96,32 
2770  DATA  0,192,32,74,194,173,30,208 
2780  DATA  169,248,141,248,7,32,16,192 
2790  DATA  32,16,192,32,141,192,32,141 
2800  DATA  192,32,141,192,32,141,192. 
32 

2810  DATA  184,192,32,248,192,32,31, 
193 

2820  DATA  32,55,193,32,102,193,32,8 
2830  DATA  194,32,35,194.32.47,194,24 
2840  DATA  173,1,207,109,2,207,109,3 
2850  DATA  207,109,4,207,208,1,96,165 
2860  DATA  254,240,194,96,-1 
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0  >  REM  ©  J.U. NIELSEN  1965 

10  01«  RØ  (UR  L  "3"  /  URL  "16"  .URL 
"4.2")  01«  CØ(URL  "3"/URL  "16"/ 

URL  ”4.”):  DI«  TØ  (UR L  "10", URL  "i 
3") 

15  LET  S-URL  "32" 

20  FOR  FrUflL  ,,1"  TO  URL  "3":  F 
OR  N-URL  "1"  TO  URL  M16":  INPUT 
(F;  *'  DIU  •  NR.  ">;»0<F/M/  TO 

URL  "lO-Jl.  PRINT  F)*<F,N,  TO  URL 
" 10") :  NEXT  N.  NEXT  F 
25  PRINT  RT  URL.  '•Il*',  URL  "14~; 
"UENT . “ 

30  FOR  F-URL  "1"  TO  URL  **3" 

40  FOR  N-URL  "1"  TO  URL  "IS" 

45  LET  CØfF.N/URL  "4 *')  «CHP$  N 
50  FOR  2  — N  TO  URL  "16** 

55  LET  RØ  (F  ,  2  ,  URL  ,,11“  TO  >«"" 
50  IF  R$ (F ,N) >R$ (F,Z)  THEN  LET 
B|sR$ ( F / N)  :  LET  RØ (F ,N)  -Rø (F  ,Z.) 

:  LET  RØ  (F  ,Z)  -00 

70  NEXT  Z.  NEXT  N:  NEXT  F 
100  POKE  URL  ••23658"  .URL  "8" 

105  PRPER  URL  ,#7"  :  BORDER  URL  " 
7":  INK  URL  "0" 

110  OO  5 UB  URL  "200" 

120  RESTORE  URL  "902B".  FDR 
RL  "1"  TO  URL  "7":  RERO  Bø:  PRIK 
T  RT  URL  "2"#N#URL  "2" /URL  1  ;  N 

Bf:  NEXT  N 

130  PRINT  . #####*###**4**4** 

**##**»###**#»#" 

140  LET  BØ-INKEYØ 

150  IF  BØ<"1"  OR  B0>"7"  THEH  OO 

TO  URL  "140"  .. 

160  GO  SUB  URL  B0*1000;  OO  TO  V» 
RL  "100"  „ 

200  CL 5  ;  PRINT  ###*#**»***  TI 

P -85  *************  :  RETURN 

1005  GO  SUB  URL  “200" 


1010  DI«  K 0 (URL  "2" . URL  " 13" , URL 
"10") :  FOR  N-URL  "i"  TO  URL  "13 

1020  INPUT  (~7-RET:  KRMP  NR.";N) 
"  HJEM. : ") ;K$(URL  "1"/N):  PRINT 
TRB  URL  "3**  -LEN  STRØ  N;  N;  "  ";KØ< 

url  " l" , N) ; " 

1025  IF  KØ  C URL  "1"/N.URL  " 1" >  *  T 
"  THEN  LET  N -N-URL  "i":  OO  TO  UR 
L  "1020" 

1030  INPUT  C "KRMP  NR.";N;"  UDE." 
)  ; K$ ( URL  "2",N>:  PRINT  K  *  I URL  "2 

"  /N) 

1035  NEXT  N 

1040  GO  SUB  URL  "200".  FOR  C*URrL 
"1"  TO  URL  "13":  FOR  Z-URL  "1" 
TO  URL  "2" 

1045  FOR  X  »URL  "1"  TO  URL  "10”: 
IF  KØ(Z/C/X)  O"  "  THEN  NEXT  X 
1050  LET  Hø-Kø (Z/ C/  TO  X-URL  "1" 

) 

1060  GO  SUB  URL  "7000":  IF  FEJL « 
URL  "1"  THEN  INPUT  ("NYT  NRUN  KR 
MP  ";C;"  ")  , K 4  ( Z , C)  ;  OO  TO  URL  " 
1045" 

1066  IF  Z-URL  "1"  THEN  LET  H  — N 

1067  IF  Z  —URL  "2"  THEN  LET  U-N 

1068  LET  N-H 

1070  NEXT  Z.  OO  SUB  URL  "1500" 
1080  NEXT  C:  OO  SUB  URL  "9640": 
GO  TO  URL  "2500" 

1090  RETURN 

1600  IF  C -URL  "4"  OR  C -URL  "7"  O 

R  C -URL  "10"  THEN  PRINT 

1502  PRINT  "  ";R4(F/H,  TO  URL  "1 

ø") ;"  ";r$(F/U/  to  url  "lø"). 

1505  LET  Hl -URL  "0":  LET  Ul-URL 
"0":  LET  N-H:  LET  X-U+URL  "10"; 
CO  SUB  URL  "8870";  IF  M2 < >URL  "3 
2"  RND  «3<>URL  "32  "  THEN  LET  Hl 

*M2:  LET  U1-H3 

1510  FOR  n -URL  "1"  TO  URL  "16"; 
IF  n*h  OR  n-U  THEN  OO  TO  URL  "16 
00" 

1515  LET  HU -URL  "0":  LET  HH -URL 

0" 

1520  IF  R$  <F ,N,h+URL  "IB")  ••  » 

ND  B*  (F,N,H»V»i.  "36") *"  “  THEN  B 
O  TO  URL  ''J60ÉI" 

1530  LET  X-H+VPL.  ”10"  ;  OO  SUB  VR 
L  "SS70":  IF  H3  <  > URL  ”32 ”  THEN  i. 
ET  MU=CMa.*H3) 

154.0  LET  X-H+VPL.  "26".  OD  SUB  VR 

ET  SSI?Hi>^,M3<>°PL  "32''  ™EN  L 
15B»  P*  IF,N,U»V»i.  "16")  "  R 

O^TO^UfiL^'^16©?"  'a6">  =”  ”  THEN  O 

1570  LET  X-LI»VAi.  "1*":  CO  SLIB  VR 
L  ”8570";  IF  M3<>VRL  ”38”  THEN  L 
ET  MH.(HS)M3) 


1500  LET  X.U+'JflL  "ae":  GO  SUB  UR 
L  "8S70":  IF  H3  < > URL  "3a"  TUEN  L 
ET  HH* (Ma  >H3) 

1585  LET  Hl  -HJ  »HH.  LET  LU  »LU  »Ni I 
1600  NEXT  N 

1706  LET  N-H.-  OO  SUB  URL  "8500".- 
.LET  Hl -Hl» IP+VBL.  "1")X<K»VPL  "1 

1710  LET  N-U:  OO  SUB  URL  "8500". 

LET  U1 -U1  *-Px  (K  »URL  "1".\ 

1805  IF  Hl-Ul  THEN  LET  T»  <VRt_  "1 
LET  Tl-VRL  "80*.  LET  T 

X-URL  “ØØ" 

1810  IF  Hl >U1  THEN  LET  TØ (URL  "1 

x:5^" ’*'éi-LET  T1-U*L  -»®-.  i-tr  t 

loaø  IF  Hl <U1  THEN  LET  T*IURL  "1 

X  —URL  ^li"LET  T1-UfiL  "15";  LET  T 
1030  PRINT  TI ( URL  "1",CJ 
1040  FOR  N-URL.  "a”  TO  URL  "10" 
1050  LET  U-INT  IRNO.VRL  "103"> 
1060  IF  U  <T 1  THEN  LET  T*(N,CJ-"1 
OO  TO  URL  "1890" 

1870  IF  U  <TX  THEN  LET  T*(N,C)-"X 
GO  TO  URL  "1890" 

1880  LET  TØ(N,C)«"2" 

1890  NEXT  N.  RETURN 

2010  OO  SUB  URL  "200".  INPUT  "13 
RIOTIGE: " ; RM 

2020  IF  LEN  R|<  > URL  "13"  THEN  OO 
TO  URL  "2010" 

2030  OO  SUB  URL  "2500":  FOR  F-UR 
L  "1"  TO  URL  "10":  LET  K— URL  "0" 
FOR  N -URL  "1"  TO  URL  "13":  IF 
RØ  (N)  -TØ  (F/NJI  THEN  LET  K-K+UAL  " 

2040  NEXT  N 

2050  PRINT  RT  N+URL  "4",F*URL  "3 

2055  IF  k  >  —URL  "10"  RND  K<UAL  "1 
3"  THEN  PRINT  RT  URL  "20".URL  "0 
" i "PREM IE  I  RREKKE  ".F;"  EN  ";K 

2056  IF  k -URL  "13"  THEN  PRINT  RT 
URL  "21" »URL  "0";  FLRSH  URL  "1" 

;  "  PREM  IE  I  RREKKE  *V.F#:  "  EN  ";H 
2060  NEXT  F.  LET  RØ-"":  GO  TO  UR 
L  "9540" 

2502  GO  SUB  URL  "200" 

2505  FOR  N— URL  "15"  TO  URL  "255" 
STEP  URL  ”24".  PLOT  N , URL  "32": 
DRRU  URL  "0 " » URL  "112" 

2507  NEXT  N  DRRU  URL  " -240" /URL 

251ø  PLOT  URL  "15" /URL  "32".  DRR 
U  URL  "240 ” , URL  "0":  FOR  N -URL  " 
64"  TO  URL  "144"  STEP  URL  "24": 
PLOT  URL  "15" /N;  DRRU  URL  "24ø" , 
URL  "0" 

2314  NEXT  N  Æ 

2520  OUER  URL  M1M:  FOR  F=URL  1 


*:  INPLrr  "13 
13"  THEN  OO 


FOR  F-Ufl 


■  Her  bringer  vi  et  lille  tips¬ 
program,  som  kører  efter  sta¬ 
tistik.  Programmet  genererer 
en  udgangsstilling  ud  Ira  den 
aktuelle  stilling  plus  9  rækker, 
der  laves  ud  fra  den  første 
række. 

Ndr  du  starter  programmet 
første  gang,  startes  det  med 
RUN,  og  ved  restart  tastes  GO¬ 
TO  100.D 

Jens  V.  Nielsen 


TO  URL  "10'*:  PRINT  RT  UAL.  "4.".V 
RL  "3 "»-r  .F:  POR  .N-MAJ.  "I "  TD  l'ÅL 
"13":  PRINT  OUER  UAL  "1”;RT  N*U 
RL  "4-”, URL  "1"»  f  (F-UAL.  "  1 .1  »MAJ¬ 
S'S”  +  (URL  "I1  ~  * 

RL 


2530  GO  7*0  URL  "954-0": 

3005  GO  SiJB  URL  "200" 

3010  INPUT  "HJEMMEHOLD: " ; H*:  IF 

H*  =  "'  T  HEN  PRINT  »1;AT  UhL  "1".U 
RL  7"; "LISTERNE  SORTERES.".  OO 
TO  URL  "5500" 

3015  GO  SUS  URL  "7000":  IF  FE,.  IL  = 
URL  1"  THEN  LET  FEJL=URL  "0":  G 
O  TO  URL  "3010" 

3020  INPUT  ("RNTRL  MAAL  ” ,  A*  IF 
,  TO  URL  "10".»  :  ">  i  M.  LET  H=N 

3025  PRINT  R*(F,H,  TO  URL  "10">; 


3030  INPUT  "UDE  HOLD.";H* 

3035  GO  SU6  URL  "7***":  IF  FEJL« 
URL  "1"  THEN  LET  FEJL  »URL  "Ø".-  G 
O  TO  URL  "3030" 

3040  INPUT  ("RNTRL  MAAL  " ,  R»  l'F  ,-N 
,  TO  URL  "10M  ;  "  ”.l  ;  Ml  .  LET  L1«N 
3045  PRINT  A*(F,U,  TO  URL  ; 

3050  PRINT  S1;RT  URL  "1" .URL  "10 
"OK. (N/ENTEflJ IF  INKEY*="N" 
THEN  GO  TO  URL  "3010" 

3055  PAUSE  URL  "1";  IF  CODE  INF.E 


Y*OURL  "13"  THEN  GO  TO  URL  "305 


3060  LET  A*  (F,H,U*UAL  "£6".l  -OMR« 
M.  LET  A* <F,U,H+UAL  «f,«U4 

Ml 

3070  PRINT  .  GO  TO  UAL  "3010" 
4.020  C(_S  :  INPUT  "OIUI5ION .  :  F : 

PRINT  '  TAB  URL.  "12";F;".  OXU.  '* 

4  025  IF  F > URL  "3"  OR  F <URL  "1"  T 
HEN  GO  TO  URL  "4.020" 

4.030  PRINT  KLUB  K. 

+  SC . —  P . " ' ' :  DRRU  URL  "2SS' 


URL  "0";  DRRW  URL  '*©"  »  URL  “175” ; 
DRRU  URL  "-255",  URL  _®".:_PRAU  U 


»*»«-  "0"  ^  UAL  "  -1 75  i'f»l  r  » 

URL  '155":  DRRU  URL  "255" »URL  "0 
:  PLOT  URL  "ø" .URL  "130";  DRRU 
URL  "255 " , URL  "0".  PLOT  URL  "132 
" , VAL  "139";  DRRU  URL  "0" » URL  " - 
139":  PLOT  URL  "155"  »URL  '•139“: 
DRRU  URL  " 0M  * URL  "-139":  PLOT  UR 
L  "137" »URL  "130".  DRRU  URL  "®" , 
URL  "-139";  PLOT  URL  "220".  URL  '' 
139":  DRRU  URL  "0 " » URL  "-139" 

4  04-0  FOR  Z-UAL  "1"  TO  URL  "15" 

4044  LET  N*CODE  C*<F»Z»UAL  "4") ; 
GO  SUB  URL  "8500" 

4045  PRINT  RT  Z-fURL  "4 "»URL  "l"; 


PLOT  URL  "0". 


'  3 " 4  i  URL  "1"  RND  TØ (F » N) =" 1") ♦ (U 
IL  "2"  RND  T|(F.N)  ="X/l)  +  (UAL  "3" 
RND  TØ (F.N) »"S") ) ;T$ (F»N) :  NEXT 
N:  NEXT  ,r  .  OUER  URL  *'Ør‘ 


RØ  <F » N »  TO  URL  "10">;RT  24-V>ftL 
"»URL  "19" -LEN  STRØ  K;K;*T  Z*A*AL 
"4"  »URL  "23" -LEN  STRØ  ft»M;RT  Z  + 
URL  "4" »URL  "27 "-LEN  STRØ  NI; NI; 
RT  Z+UAL  "4" »UAL  "31 "-LEN  STRØ  P 

;  p 

4050  NEXT  Z 

4060  GO  SUB  URL  “9550" 

4070  RETURN 

5010  SRUE  "T-85“  LINE  100:  CL5  : 

PRINT  RT  11 »2;"  SPOL  TILBRGE  F 
OR  UERIFY  M:  UERIFY  " " :  RETURN 
5501  FOR  F*URL  "1"  TO  URL  "3";  F 
OR  NaUAL  "1"  TO  URL  "16":  GO  SUB 
URL  "6500":  LET  C*fF»N»UA L  "1"J 
■CHRØ  P:  LET  CØ(F»N.URL  "2">»CHR 
0  (M-f  UAL  "100"—  Ml):  LET  CØ<F.N»U 
RL  "4") »CHR*  N.  LET  C*(r,N,VRL  " 
3") »CHRØ  (URL  "17" -CODE  CØ(F»N,U 
RL  "4 ")}:  NEXT  N;  NEXT  F 
5510  FOR  F=UAL  "1"  TO  URL  "3":  F 
OR  N*UAL  "1"  TO  URL  "16" 

5520  FOR  Z~N  TO  URL  "16" 

5530  IF  Cø f F»N.  TO  URL  ,,3"J <CM tF 

(% Ié7ø"  ™CN  00  5UB  ^AL 

5540  NEXT  Z:  NEXT  N:  WEXT  F 
5560  RETURN 

5570  LET  BØ«CØ(F»Z):  LET  C£<F»Z> 


FOR  N  =U.RL 


'1"  T 


«CØCF»N):  LET  Cø(F»N.^=BØ. 


Set urn 


"1"  TO  URL 
O  URL  "16" 

7020  IF  H*=A*fF»N»  TO  LEN  N0>  TH 
EN  RETURN 

7030  NEXT  N:  NEXT  F 
7040  GO  TO  URL  "9500" 

7500  INPUT  "PRINTER. CU/N) HØ. 
IF  H$»"  J"  THEN  OPEN  »URL  "2f’  »  *P" 
7510  FOR  F »URL  "1"  TO  URL  "3r*  :  G 
O  SUB  URL  "7550";  LET  K =URL  "ø"; 

FOR  N«UAL  "1"  TO  URL  "IB" 

7520  FOR  X »URL  "27"  TO  URL  "42": 

IF  Rø  (F  »N  »X)  <  >**  **  THEN  GO  SUB  U 
RL  "857ø";  GO  SUB  URL  "6040".  LE 
T  K-K+UAL  "1"  „„„  _ 

7525  IF  Hø  <  >  "<J"  RND  K*UAL  "20  T 
HEN  GO  SUB  URL  "9540":  GO  SUB  UA 
L  "7550" 

7530  NEXT  X:  NEXT  N:  IF 
THEN  GO  SUB  URL  "9540" 

7540  NEXT  F.  CLOSE  »URL  "g.* 
H$<>"J"  THEN  GO  TO  URL  "954ø* 

7545  RETURN  _ _ 

7550  IF  HØ*"J"  THEN  LPRIf'TT  ^ 

7560  LET  K*UAL  "0";  CLS  .  PRIljTT 
;  TAB  URL  "10";F;"  OIUOSION."": 

©505RLET  M-UAL  "0":  LET  H1*URL  " 
©":  LET  P=URL  "©" 

ac.A  i  CT-r  k-HQI  "A"- 


6003  GO  SUB  URL  "200".  OPEN  »2 . " 
S" 

6001  INPUT  "NRUN:  VENTER =MENY .i 
;H$:  IE  H*  =  ""  TUEN  GO  TO  URL 

4.0" 

6003  GO  SUB  URL  "7000":  IF  FEJL 
THEN  LET  FEJL »URL  "0":  GO  TO  URL 

"0001" 

6004  GO  SUB  URL  "C^ØO";  PPXMT  Tfl 

e  URL  ••  10" ;  F;  DIUISION."  R*(F,N 
,  TO  URL  "10") J"  +"; TRB  URL  "10" 
-LEN  STR*  M; M: "  TRB  URL  "20" 

-LEN  STR*  Ml; Ml;"  POINT=" ; TRB 
URL  " 30" ; P ' ' 

6009  FOR  X  »URL  "42"  TO  URL  "11" 
STEP  URL  "-i" 

6010  IF  R*(F,N,X)<>"  "  THEN  M  S 
UB  URL  "BS70" ;  GO  SUB  URL  6040" 
6020  NEXT  X:  PRINT  :  GO  TO  URL  " 
6001" 

6040  IF  Xs=URL  ”27"  TMEN  PRINT  J 
A*CF,N.  TO  URL  "10");"  ";R*(F,X- 
URL  "10" -URL  "16"* (X>=URL  "27")  , 
TO  URL  "10");"  ";M2;"-";M3:  RET 

60SØ  IF  .X  { UAL  "27"  THEN  PRINT  A* 
(F . X  —URL  "10",  TO  URL  "10");"  "i 
R*(F,N,  TO  URL  "lø");"  ";M3; 

M2 :  RETURN 

7005  IF  S*="7"  TMEN  GO  TO  URL  "7 
500" 

7010  LET  FEOL »URL  "0":  FOR  F =URL 


8510  LET  K=URL  n'x?1:)"1 

1"  TO  URL  "42":  IF  ?L-i-  >  «•  _ 

-  THEN  GO  SUB  URL  6560  LET  K« 


TMEN  GO  SUB  URL 
K+URL  ”1"  _ _ 

U? S  then  go  to  u 


S580SIF0X<UnL  "27"  THEN  GO  TO  UR 


6S907LET  M3=CODE  R*lF,X-URL  "26" 

é592RGO  TO  URL  ”6701 “ 

3700  LET  M3=CODE  R*1F,X-URL  "10" 
. N+UflL  "26") 

3701  LET  M2=C0DE  R*IF,N,X) 

3702  IF  M2  >M3  THEN  LET  P=P+URL  " 

2" 

3703  IF  M2»M3  TMEN  LET  P=P*UAL  *' 
1" 

3704  LET  M=M*M2.  LET  Hl =H1 *M3 
3710  RETURN 

9020  DRTR  "INDPUT  T IPSKAMPE . ” , ”K 
ONTROL  RF  TIPSK UPON . INDPUT  RE 
SULT  ATER  .  "  ,  UDSKRIV«  STILLING.  ",  " 
SRUE  PROGRRH. " , "SE  RESULTATER, " , 

'  SE  ALLE  KAMPE" 

3510  LET  FEJL »URL  "1":  PRINT  Ul; 
RT  URL  "1" ,0;  "NRUN  FINDES  IKKE .  " 
VOL-  "  100"  :  RETURN 
THEN  RETURN 

9550  PRINT  »1 ; RT  URL  "1",UAL  "ø" 

'  FNTER  K  »COPY :  "  PAUSE  1. 

PRUSE  0.  IF  INKEY*="K"  THEN  INP 
UT  ,  ;  l  DPV  LPRIMT  '  ' 

9560  RETURN 


&&  15 


Adventure 


■  En  af  de  ting  der  gør  livet 
svært  tor  danske  adventure- 
freaks  er,  at  spillene  oftest  er 
på  engelsk,  og  så  er  det  svært 
at  gætte  sig  til,  hvilke  ord 
man  skal  bruge. 

Følgende  lille  program  kan 
klare  skærene.  Man  indtaster 
navnet  på  den  maskinkode- 
fil,  som  man  vil  undersøge. 
Den  læses  herefter  ind.  (Vær 


i  øvrigt  opmærksom  på,  at 
der  ofte  er  en  BASIC-loader 
foran  selve  spillet  på  bånde¬ 
ne,  den  må  man  spole  hen 
over).  Programmet  finder  så 
de  steder  i  spillet,  hvor  der  står 
noget  i  klartekst  og  udskriver 
det.  Noget  af  det,  man  får  ud¬ 
skrevet,  er  det  rene  volapyk, 
men  på  et  tidspunkt  kommer 
ordlisten  !□ 

Lars  Christensen , 


LCSoft .  1*85 
*  "  .  mvri$ 

&4FF :  CLOSEOUT 


PEEK<  pc  >M23  THFH 
PEEkY  Pc  »123  THFH 


.0 


AOVENTURE  SPY  <c>  by 
INPUT  "Indtast  fil  navn 
OPENOUT  "dummy " = MEMORY 
LOAD  navn 4 • &5øø 
Pc-fcSøØ 

P  r =P  c  + 1 : 1 F  PEEK<  P  c  ><  65 
Prs=Pr+J  :  TF  PFFKCpr  )<65 
PR  I  HT  CHR*<  PFFkY  P  c  - 1  >  >;  CHR4*r  PFFKX  P  c  >  V; 

PcsPr+WF  PFEKYPCK65  OR  PEEK<Pc»123  THEH  PRINT" 
J  PRINT  CHR<<PEEK< Pc 'GOTO  90 


'/I 


s  GOTO  6ø 


10  REM  ANBENGRADSPQlYnumIUMS  PROGRAM  AF  LARS  SØRENSEM 
£0  CLS 
30  LOCATE 
40  PRINT 
50  PRINT 
60  PRINT 
70  PRINT 
80  PRINT 
90  ClS 


£,  £3  :  PRINT  "ANDENGRADSPGi-YNOmiuMS  PROGRAM" 
PRINT  "Programmet  Drucier  formlen  f(x)  =  Ax"£  + 
PRINT  “Værdierne  A.  B  og  C  skal  indtastes,  " : 
derefter  udregner  Drogrammet : " 

PRINT  "tooDunktet  <X0, YO),  diskrirainanten  D  og 
PRINT  :  INPUT  "Tast  < RETURN)  for  at  fortsætte". 


Bx 


'Odderne. 

A* 


100 

l-OCATE 

£,  £3  :  PR: 

110 

INPUT 

"Indtast  0 

l£0 

IF  A=0 

THEN  BEEP 

130 

INPUT 

" Indtast  B 

1 40 

INPUT 

"Indtast  C 

150 

REM 

160 

PR  I  N’f 

:  PRINT 

170 

D =B  •'•£-- 

4*A*C 

ISO 

X0=— B/ 

(£*A) 

190 

Y0=— D/ 

(4*0) 

£00 

PRINT 

"D  ="  D 

£10 

PRINT 

"XO  ="  XO 

££0 

PRINT 

"YO  ="  YO 

£30 

PRINT 

:  PRINT 

r  " andengradspulynomiums 
A 

GOTO  90 
B 
C 


P  ROGRAm ■ 


PRINT 


2 


■  Dette  program  til  kompa¬ 
tible  PC’ere  kan  udregne  an¬ 
dengradsligninger  hurtigere 
end  temperaturen  stiger  1 
grad,  når  du  sveder  overvi¬ 
ne  skoleopgaver. 


2.  grad 


Programmet  anvender  sig  af 
den  sædvanlige  formel  f  (x) 
=  Ax2+Bx+C. 

Du  indtaster  værdierne  for  A, 
B  og  C,  og  lynhurtigt  får  du 
værdierne  for  diskriminan- 


ten,  toppunktet  og  rødderne. 
Programmet  er  skrevet  helt  i 
BASIC  og  tager  kun  et  øjeblik 
at  indtaste. □ 

Lars  Sørensen 


£40  Ir  D<0  THEN  PRINT  "Polynomiet  nar  ingen  redder 
£50  IF  D>  O  THEN  £90 
£60  X=-B  /  (£*A) 

£70  PRInT  "Polynomiet  nar  roden  "  X 
£80  GOTO  330 

£90  X 1=  l-B+SQR (D) )  /  <£*A) 

300  X£= (-B-SDR(D) )  /  <£*A) 

310  PRINT  "Polynomiet  nar  redderne:  '•  XI 


30Tu 


3£0 

330 

340 

350 

360 

370 


PRINT  "og  "  X£ 

PRINT  :  PRINT 

PRINT  "Preve  igen  <j/n) 

A*  =  INKEY* 

IF  A*=" "  THEN  350 
IF  A$="j"  OR  A*="J" 


THEN  90 


sss^ssss. 

;g.sgg 


s  SE ise©*®«?«?  ■ '.  »*.  «*• 

?iØP£ ^—*T  . 

‘SS^Ct 

fS&SS^ 

V«*0.  \F,‘*'"lÆort 36876  «v«**'0'45 

iøe»  ifo-'1^  «,63*»’52S.  aic'1*-9 

l^C«ae«*rS- 

i 

i\  - 

■\  vss  oo10'00'0  «#*&* 

fil  $&  «g$& ftS&SftS 

1\  «.sss&-"  ’g^sss? '**r 


■  For  dem  med  benzin  i  blo¬ 
det  og  en  fartdjævel  i  krop¬ 
pen  er  Roadrace  det  helt  rig¬ 
tige  spil.  Undgå  at  tå  cyklister 
på  køleren,  og  lad  være  med 
at  smadre  bilen  ind  i  bolvær¬ 
ket.  Hvis  bilen  eksploderer, 
oplyser  computeren  læng¬ 
den  at  den  tilbagelagte 
strækning  i  torhold  til  tiden. 
Styringen  foregår  ved  hjælp 
at  joystick.  Spillet  er  lavet  til 
en  standard  VIC-20  B 

Kim  Berg  Hansen 


ShoofEM 


■  Programmet  tegner  en  la¬ 
byrint  i  pæn  grafik .  Din  opga¬ 
ve  er  at  gå  rundt  og  finde  for¬ 
skellige  ting.  samt  at  undgå 
uhyrer  -  eller  skyde  dem. 
Selvom  programmet  er  me¬ 
get  langt  kan  det  virkelig  be¬ 
tale  sig  at  taste  det  ind.  Det  er 
nemlig  helt  på  højde  med 
»Gateway  to  APshai«,  dog  ik¬ 
ke  helt  så  hurtigt,  og  heller  ik¬ 
ke  med  så  mange  skærme. 
Programmet  er  selvforklaren¬ 
de  og  benytter  ikke  joystick .  □ 
Christian  Hansen 


9  POKE  33,233  POKE  36, 47' V-33248 

FOR  1*12344  TO  12531 'POKE  1,0 
: NEXT. POKE  V+32,0 

1  POKE  V+33, 0 ■ FOR  1-12268  TO  12319 

: READ  H : POKE  l.fl'HEXT 
POKE  54296,15 

2  POKE  V+24, 28 : POKE  V+22, 

PEEKC V+22) OR  16' PRINT" CCLR) " 

FOR  1-12332  TO  12991 XEHD  H 
■POKE  I , H 

3  NEXT • POKE  V+37,10:P0KE  V+38,3 
3  SIM  R*  C  24 ) : R-0  POKE  34278,0 

POKE  34292,0 

10  FOR  1-0  TO  24 : READ  H*C  I )  :  NEXT  LI=3 

KB=197:SC»0 

15  POKE  V+16, ø : POKE  V, 150 
POKE  V+l, 120  POKE  V+39,6 
: POKE  V+28, 13 ; POKE  2040, 193 : DI-0 
20  POKE  V+40, 2 
30  OOSUB  1080  8H-0 

53  K-PEEKCKB) :  H-PEEKC  V)  +  CK-10X8-CK- 
10)48 ■ B-PEEKC V+16)HND  1 

36  IF  K-10  THEN  DI-1 

37  IF  K=18  THEN  DI=ø 
58  POKE  2040, 193+DI 

60  IF  FKØ  HND  B  THEN  B-ØH-252 
63  IF  H>235  HND  8-0  THEN  B-KH-Ø 

67  IF  B  HND  R>60  THEN  POKE  V+16, 

PEEKC V+16)HNL  254 ■ POKE  V.20R-R+1 
: GOTO  50 

68  IF  B-0  HND  H<20  THEN  POKE  V+16, 
PEEKC V+16)0R  1  POKE  V,60:R»R-1 

: GOTO  50 

70  POKE  V,R  POKE  V+16, PEEKC V+16)0R  B 
IF  B-0  THEN  POKE  V+16, 
PEEK(V+16)HND  234 
73  R-PEEKC  V+l  )  +  CK-9X8-CK"23X8 

77  IF  R<32  THEN  POKE  V+l ,  220 :  R-R+3 

□OTO  30 

78  IF  H>220  THEN  POKE  V+l,32R-R-3 
: GOTO  30 

80  POKE  V+l , fl :  IF  PEEKC V+31 ) HND  1  THE 
N  2øøø 

85  IF  PEEKCV+30)HND  1  THEN  93 
90  GOTO  150 

95  IF  PEEKC V+30)> 128  THEN  113 
løø  I F  PEEKC V+30)HND  8  THEN  2800 
110  IF  PEEK C V+30 ) HND  4  THEN  2000 
112  GOTO  150 

115  SC-SC+INTC RND 0)45+1) 950 

123  POKE  V+21,  PEEK CV+21) HND  127  T— 1 

150  IF  KO  13  THEN  200 

151  POKE  54276,0  POKE  54277,204 

: POKE  34273, 137 : POKE  34272,43 

:  PflKF  — 

152  POKE  54290,0  POKE  34291,136 
POKE  34287,69  POKE  V+16, 

PEEK  C  V+ 1 6 ) HND  253 

153  POKE  34286, 149  DS-8SH-1 

: X-PEEKC V)+24 ; IF  PEEKCV+16)HND  1 
THEN  X-X+256 

154  POKE  54290,  17  :  IF  di  JHEN  DS— 8 
; XbX~48 

153  B=ø  IF  X>236  THEN  B=2X=X-256 
160  POKE  V+2,X : POKE  V+3, PEEKC V+l ) 

POKE  V+16, PEEKC V+16)0R  B 
POKE  2041, 193+DI 
162  POKE  V+21, PEEK C V+21) OR  2 
170  H-PEEKCV+2)+DS : B=PEEKCV+16)HND  2 
:  IF  H<0  RND  B  THEN  R=248B=ø 
175  IF  R>255  RND  B»ø  THEN  B=2R=0 
180  POKE  V+2,  fl  ;  POKE  V+16, 

PEEKC V+16)0R  BIF  B=0  THEN  POKE  V 
+16, PEEKC V+16)HND  253 
185  I F  PEEK C V+31) HND  2  THEN  POKE  V+2 
1, PEEK C V+21) HND  233G0T0  199 
190  IFCH<20  HND  B=0)0RCR>60  RND  B)TH 


EN  POKE  V+21, PEEK C V+21) HND  253 
: GOTO  200 

191  U-PEEKCV+30) : IFCU  RND  128)THEN  I 
FCU  HND  2) THEN  198 

192  IF  U  HND  2  THEN  194 

193  GOTO  198 

194  IFCU  RND  4) HND  MK3  THEN  POKE  V+ 
21 -PEEKC V+21 )HND  233SH-0 
:SC»SC+M1*10  (11=5  GOTO  199 

195  IFCU  RND  8) HND  M2<5  THEN  POKE  V+ 
21, PEEK C V+21) RND  253SH-0 

:  SC-SC+M2*  1 0 : 112=3 :  GOTO  1 99 

198  GOTO  170 

199  POKE  54276,0  POKE  54277,72 
POKE  54273,4  POKE  54272,73 
POKE  54276,129 

200  IF  Ml-0  THEN  300 

205  X=PEEKCV+4)  V-PEEKCV+5) 

IF  PEEKC V+l 6) HND  4  THEN  X=X+236 
210  VX-PEEK  C V) : YV-PEEK C  V+ 1 > 

IF  PEEKC V+16)RND  1  THEH  YX=YX+256 
212  IF  Ml>4  THEN  273 
215  IF  Ml-4  THEN  230 
220  IF  m-3  HND  RNDC1».3  THEN  250 
225  X1-X+CX>VXXS1-CX<VXXS1 
:Y1»Y+CV>YVXS1-CV<YYXS1 
227  IF  XI >255  THEN  X1=X  1-256 

POKE  V+16, PEEKCV+16)0P  4  GOTO  235 
230  POKE  V+16, PEEKC V+16)HND  251 
235  POKE  V+4, XI : POKE  V+5-V1 
247  GOTO  300 

230  Xl-X+INT  CRNDC 1 )*3-l )4S1 
: Vl-V+INT  CRNDC 1 >43-1 )9S1 
251  IF  XI <20  OR  XI >320  OR  YK52  OR  V 
1>220  THEN  Xl-XYl-V 
233  POKE  V+16, PEEK  C  V+ 1 6 ) HND  251 
IF  X 1 >253  THEN  Xl-Xl-256 
POKE  V+16, PEEKC V+l 6 )0R  4 
260  POKE  V+4, XI  POKE  V+5-V1 
270  GOTO  300 
273  IF  m-10  THEN  290 
280  POKE  V+4 1,1: POKE  V+28, 

PEEK  C  V+28)  HND  231 :  M1=M1+1 :  GOTO  300 
290  POKE  V+28, PEEK C V+28) OR  4: Ml-0 
POKE  V+21, PEEKC V+21 )RND  251 
300  IF  112=0  THEN  400 
305  X=PEEKCV+6) : V=PEEKCV+?) 

: IF  PEEKCV+16)RND  8  THEN  X=X+256 
310  VX-PEEKCV) : VV-PEEKCV+1 > 

: IF  PEEKCV+16)HND  1  THEN  VX-VX+236 
312  I F  M2>4  THEN  375 
315  IF  M2-4  THEN  330 
320  IF  M2=3  HND  RNDC1)>.3  THEN  350 
325  X1=X+CX>YX)*S2-CX<YXXS2 
:  V 1  =  V+  C  V>VV  >*S2-<Y<VY>  *S2 
327  IF  XI >255  THEN  XI  =X  1-256 

POKE  V+16, PEEKC V+16)0R  8  GOTO  335 
330  POKE  V+16, PEEKCV+16)RND  247 
333  POKE  V+6, XI ; POKE  V+7-V1 
347  GOTO  400 

350  X1=X+I NT CRNDC 1 X3-1 XS2 
: V1=V+INTCRNDC 1 )*3-l XS2 

351  IF  XI <20  OR  Xl>320  OR  Vl<52  OR  V 
1>220  THEN  X1=X : VI =V 

355  POKE  V+16, PEEK C V+l 6 )HND  247 


IF  Xl>255  THEN  Xl=Xl-256 
POKE  V+16, PEEKCV+16)0R  S 
360  POKE  V+6, XI  POKE  V+7-V1 
370  GOTO  400 
375  IF  [12=10  THEN  390 
380  POKE  V+42, 1  POKE  V+28- 

PEEKCV+28)RND  247 :  ri2=M2+l  :  GOTO  4øø 
390  POKE  V+28,  PEEKC V+28)0R  8  [12=0 
POKE  V+21,  PEEKC  V+21  )HND  247 
4øø  GOTO  55 

løøø  fl$=H*CR)  B4="0000" : PRINT" CCLR1" 
POKE  V+35, 8+ I NT C R/3)  POKE  V+21-0 
: FOR  1=1  TO  20 

1005  IF  LENCH*)>»4  THEN  B*=LEFT*CH», 
4)  fl*=RIGHT*CH*,LENCH*)-4) 
lølø  PRINT"CH0ME)";TRBCCI-1)*2), 
:D=VHLCLEFT*CB$,2)) 

: U=VHLCRIGHT$CB$ , 2) ) 

1015  IF  D=0  THEN  1025 
1020  FOR  J*1  TO  D : PRINT"3HCCRSR  NED, 
CRSR  VENSTRE2)"; :NEXT 
1023  PRINT" C HOME, CR§R  NED23 ) " ; 

THBC  C 1-1 X2) i 

1030  IF  U>0  THEN  FOR  J=1  TO  U 

: PR I NT "Sfl C CRSR  OP, CRSR  VENSTRE2)") 
NEXT 

1035  NEXT  I  :  T=-l  ;  IF  RNDC1X.6  THEN  1 
065 

1037  T=ø : POKE  V+14, 100+RNDC 1 )*150 
1040  POKE  V+l  5,  100+RNDC  1X30 
POKE  V+16, PEEKC V+16)HND  127 
POKE  V+46,2 

1045  POKE  V+29, PEEKC V+29)0R  128 
POKE  2047 , 197 ■ IF  KE  THEN  1055 
1055  POKE  V+21, 128 : I-PEEKC V+31 )+PEEK 
CV+3D+PEEKCV+31) 

1060  IF  PEEKC  V+31  )HND  128  THEN  T=-l 
POKE  V+2 1,0 

1065  POKE  V+21, PEEK C V+21) OR  1 
: I=PEEKCV+31) : I-PEEKCV+30) 

1070  M1=0:M?SØ:IF  RHDC1X.3  THEN  1110 
1072  POKE  V+4,  RNDC 1X236+20 
POKE  V+5-RNDC 1X1 68+52 
1075  M1  =  INTCRNDC  1X4+1) 

: POKE  2042, 198+Ml:R0KE  V+41,6:S1=2 
1080  IF  (11=2  THEN  POKE  V+41,11:S1=6 
1085  IF  Ml*3  THEN  PQKE  V+41,9:S1=4 
1090  IF  Ml =4  THEN  PQ^E  V+41,14:S1=4 
1100  POKE  V+21, PEEK C V+21) OR  4 
: I »PEEKC V+31) 

1110  IF  RNDC1X.3  THEN  1150 
1112  POKE  V+6, RNDC 11*236+20 
POKE  V+7, RNDC 1) *168+52 
1115  M2=INTCRNDC  1X4+1) 

POKE  2043, 198+M2: POKE  V+42,6:S2=2 
1120  IF  M2=2  THEN  POKE  V+42, ll:S2=6 
1125  IF  M2-3  THEN  POKE  V+42,9:S2=4 
1130  IF  M2=4  THEN  POKE  V+42,14:S2=4 
1133  POKE  V+21,  PEEK C V+21) OR  8 
: I »PEEKC V+31) 

1150  PRINT" C HOME, CRSR  NED24)"; 

FOR  1=1  TO  LI :  PRINT"CHVID)B  "i 
:  NEXT 

1155  POKE  V+28, 15 
1200  RETURN 
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2000  POKE  V+2S , PEEK ( V+26  .>  RND  234 
POKE  34276,0  POKE  54277,143 

•POKE  54273,34 

2001  POKE  54272- 75  POKE  34276,129 

: POKE  V+39, 1 : FOR  1=1  TO  2000:NEXT 

2004  POKE  V, 150  POKE  V+ 1,120 

2005  POKE  V+28, PEEK( V+2810R  1 

: POKE  V+39, 6 : POKE  V+21 , ø : L1=LI-1 
: R=ø : IF  LI>0  THEN  30 
2010  POKE  V+24, 20 : PRINT" (CLR, 

GRØN1HRRD  LINES,  VOU  UERE  K ILLED" 
2012  PRINT" <CRSR  NED3, 

GUDYOU  SCORED"SC 
2015  PRINT" <CRSR  NED2, 

LILLRJRNOTHER  GAME  ?" 

2017  POKE  54273,0: POKE  54272,0 
POKE  54287,0: POKE  54286,0 
2020  GET  R$ : IF  R$="Y"THEN  SC=0:LI=3 
POKE  V+24, 28  GOTO  15 
2023  IF  A*<>"N"THEN  2020 
2030  END 

10000  DRTR  235,234,234,234,234,234, 
234,233,235, 171 , 171 , 171 , 171 , 171 , 
171,253 

10003  DRTR  24,24,255,24,60,108,108, 
108,0,6,249,70,0,0,0,0 
11000  DRTR  0,0,0,0,21,0,0,21,0,0,4,0, 
0, 170,0,2, 170, 138,2,42, 164,2,42,0, 
2,42,0 

11003  DRTR  2,42,0,1,42,0,0,63,0,0,63, 
0,0,51,0,0,51,0,0,243,0,0, 195,192, 
0,192,192 

11010  DRTR  0,192,192,0,240,240,0,0,0, 
99 

11015  DRTR  0,0,0,0,84,0,0,84,0,0,16, 
0, 0, 170, ø, 162, 170,123,26,168, 128, 
0,168,123 

11020  DRTR  0,168,128,0,168,128,0,163, 
64,0,232,0,0,252,0,0,204,0,0,204, 
0,0,207,0 

11023  DRTR  3,195,0,3,3,0,3,3,0,15,15, 
0,0,0,0,99 

11030  DRTR  0,0,0,0,0,0,3,0,0,0,32,0, 
12, 168,0, 194, 168,0, 12, 168,0,0,32, 
0,3, 0,0, 0,0 

11035  DRTR  0,0,0,0,0,0,0-,0, 0,0, 0,0,0, 
0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0,0, 
0,0, 0,0 

11040  DRTR  99,0,0,0,0,0,0,0,0,192,0, 
8,0,0,42,48,0,42,131,0,42,48,0,8, 
0,0,0, 192 

11043  DRTR  0,0, 0,0, 0,0, 0,0, 0,0, 0,0,0, 
0,0, 0,0, 0,0,  ø,ø,  0,0, 0,0,  ø,ø,  0,0,0, 
0,0, 0,0 

11050  DRTR  0,0,99,0,56,0,0,126,0,1, 
231,128,3,1,192,6,0,224,0,0,224,0, 
0,224 

11033  DRTR  0,1,192,0,3,128,0,7,0,0, 
14,0,0,28,0,0,56,0,0,48,0,0,48,0, 
0,48,0,0,0,0 

11060  DRTR  0,0,0,0,48,0,0,120,0,0,43, 
0,99,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
48,0,0,206 

11063  DRTR  0,3,3,15,252,3,3,3,3,3,0, 
206,0,0,48,0,0,0,0,0,0,0,0,0,0,0, 


0,0, 0,0,0 

11070  DRTR  0,0, 0,0,0, 0,0, 0,0, 0,0, 0,0, 
0,99 

11075  DRTR  0,0,0,0,0,0,0,0,192,0,3, 
48,0, 12,0, 12, 12,0,48,42,0, 12, 170, 
128 

11080  DRTR  3,153,176,0,170,140,0,42, 
3,0, 12, 12,0, 12,0,3,48,0,0/192,0,0, 
0,0, 0,0,0 

11085  DRTR  0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 
99,0,8,0,0,42,0,0,38,0,0,42,0,0,8, 
0,2, 170, 160 

11090  DRTR  2,46,32,2,46,32,3,42,48,2, 
21,32,2,42,32,0,42,0,0,34,0,0, 128, 
128 

11095  DRTR  0,192,192,0,128,128,0,128, 
128,0,34,0,0,34,0,0, 162, 128,2, 162, 
160,99 

11100  DRTR  0,0,0,0,9,92,0,46,0,0,191, 
128,2,110,96, 194,89,96,73,89,88, 
73,89,88 

11105  DRTR  110, 170, 174,9,89,89,2,89, 
89,2,8 9,97,0, 174,99,0,191, 123,0, 
46,0 

llllø  DRTR  0,8,0,3,84,0,0,0,0,0,0,0, 
0,0,0,0,0,0,99 

11115  DRTR  0,0,0,0,0,0,0,0,0,0,0,16, 
0,0, 16,0,0,64,0,1,2,0,4,8,0,1,8,0, 
4,2 

11120  DRTR  40,16,130,130,154,34,128, 
112,8,1,48,0,4,60,0, 16, 15, 192,64, 
ø,  192 

11125  DRTR  16,0,252,4,0,0,16,0,0,64, 
0,0,99 

12000  DRTR  2400240005040504050403040 
30400040004000400040004 1 009 
12005  DRTR  1009100910090504050403040 
504051 50004000400040004 1009001900 
1400141009 
12010  DRTR  1009 

12015  DRTR  1009100910091009100910091 
009 1 009000900090009000900090024 
12020  DRTR  0024002400240304050405040 
504050400090009000900090009050405 
0405040024 

12023  DRTR  2400240010091009100910091 
009100010001000100010001009 
12030  DRTR  1009100910091009100910091 
0091 00900000000000000000024 
12035  DRTR  2400240005040504050405040 
5040304000400040004000403040504 1 0 
09 

12040  DRTR  1009100910091009100910091 
009100910001000100010001009 
12043  DRTR  1009100903040304050405040 
304050400000000000000000302030203 
0203020024 

12050  DRTR  2400240024002400240024002 
400240000090009000900091009 
12053  DRTR  1009100910091009100910091 
009 1 009 1 000 10001 00010000024 
12060  DRTR  2400240003020302030203020 
302030200000000000000000302030203 
021009 

12065  DRTR  1009100910091009100410041 


0041 0040004000400040004 1 004 100410 
0410041009 

12070  DRTR  1009100910091009100910091 
009 1 00900000000000000000024 
12075  DRTR  2400240024002400050405040 
304050400000000000000000504050405 
0405040024 

12080  DRTR  2400240024002400240024002 
40024000009000900090009 1 009 
12085  DRTR  1009100910091009100910091 
009100910001000100010000024 
12090  DRTR  2400240003020302030203020 
302030200000000000000000302030203 
0203021009 

12095  DRTR  1009 1009 1009 1009 1009 10091 
øø91ø09øøøøøøøøøøøøøøøøøø24 
12100  DRTR  2400240005040504050405040 
504050405000500050005000504050405 
0405041009 

12103  DRTR  1009100910091009100910091 
009100910001000100010001009 
12110  DRTR  1009100910091009050403040 
5040504050405040504050405040024 
12115  DRTR  2400240024002400240024002 
4002400100010001 øøø løøøl øø9 
12120  DRTR  1009030203020302030203021 
502030203000300030003000302030203 
0203020024 

62000  T=PEEK  < 62  > »256+PEEK ( 6 1 ) + 1 

62010  I NPUT "TO  PRINTER  <  V  , 

N  OR  DELETE  >  ",Q$ 

:  IF  Q$= '' DELETE " THEN  62200 

62011  IF  Q$<> "V'THEN  62020 
62015  GLOSE  4-40PEN  4-4CMD  4 

PRINT  CHR$a>;CHR$<12S0 
62020  PRINT  CHR$ <147); "CHECK  SUM  :-" 

: LINK=PEEKC44)*256+PEEK<43) 

: E=61999 

62100  REM  *  MRIN  LOOP  * 

62120  T=LINK 

62121  LET  XX=TI 

62130  L I NK=PEEK (T+ 1 ) »256+PEEK <  T ) 

62135  LN=PEEK  C  T+3  > »256+PEEK  <  T+2 ) 

62136  IF  LN>E  THEN  PRINT 

: PR I NT " TOTRL= " ; CH : CLOSE  4 , 4 : END 

62137  S$=STR$<LN>L=LEN<S*)-1 
St=MID*(St,2,L> 

62138  PRINT  SPC<6-L>;S*; 

62140  CS=ø  :  N=0  :  C=0 

62150  FOR  P=T+4  TO  LINK-2  PK=PEEKCP) 
62160  IF  PK=143  THEN  P=LINK-2 
GOTO  62190 

62165  IF  PK=34  THEN  C=<C=0> 

62170  IF  C=ø  RND  PK=32  THEN  62190 
62130  IF  PK=137  THEN  N=N+1 
: CS=CS+(203  OR  N)  PK=164 
62185  N=N+1  CS=CS+(PK  OR  N) 

62190  NEXT  P  : CH=CH+CS 

:  PRINT"=";RIGHT$<STR*<CS>, 
LEN<STR$<CS>  >-l > 

62191  IF  TKXX+240  THEN  62191 

62192  GOTO  62120 

62200  POKE  T , ø : POKE  T+1,0 
POKE  46, PEEK (46) -2 : CLR 
62999  REM 


&&  19 


Illlllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll 


■  Dette  program  kan  ved 
hjælp  at  de  brugerdefinerba¬ 
re  gratiktegn  på  Spectrum- 
men,  tegne  Garfield  med 
hans  frække  smil.  Program¬ 
met  definerer  og  skriver  gra- 
fiktegnen  fire  gange.  Ved 
indtastning  af  programmet 
skal  teksten  i  linierne 
350-370.700-720,  1100-1120 

og  1 450- 1 460  indtastes,  mens 
computeren  er  i  graphics  mo 
de.D 

Peter  Blume 


70  RFM  ********** x  + ********•♦ 

80  RE"1 

100  FOR  m=l  TO  20:  GO  SUB  1500 

150  DATA  “*".0.0.  Ot  O,  0,  3.  7.  7 

160  DATA  "b",0.0.  0,0,240,  15,  192.240 

170  DATA  "c“.  1. 2.  15.  15.  15.  15.  207.56 

180  DATA  "d"  >  248,  7,  128,  192,  248,  238.  195,  O 

190  DATA  "e",  0,  0.  224,  56,  12,  2.  129.  192 

200  DATA  “f  “  .  0,  0,  O,  0.  0,  O.  O.  128 

210  DATA  "9"  .  3,  3,  2,  2,  1,  1. 0,  48 

220  DATA  "h",  238,  181.8.  0,0,  15,  144,96 

230  DATA  “  i  ",  8.  S,  200,  40,  17,  246,  24,  8 

240  DATA  “1".  0.  0,  0,  127,  128.  0,  0.  0 

250  DATA  “K“,  96,  16.  16,  136.  120,24,8.  4 

260  DATA  ”  I  ",  64,  64,  32,  30,  7,  6.  6,  O 


270  DATA 


,0,0,  O,  O.  192,  160,  16,24 


280  DATA  "n",  8,  117,  10,  5,  245,  5.  12.  16 
290  DATA  "o"  .  128,  128,  128,  O.  O.  O,  1  28,  128 
300  DATA  "o",  8,  16,  16,  32.  32.  16,  16,  16 
310  DATA  "a".  O,  O,  O,  O,  O,  O,  O,  63 
320  DATA  "  r"  ,  4,  2,  2,  2,  3,  26,  226,  4 
330  DATA  "s"  ,  O.  O.  O,  248.  4,  2.  2,  129 
340  DATA  "t",  8.  60,  62,  42,  3.  1. 3.  7 
350  PRINT  AT  5,  10; "abcdef " 

360  PRINT  AT  6.  10S "sh i  i K I m" 

370  PRINT  AT  7,  10; "nopqrst" 


790  FOR  m=l  TO  21:  GO  SUB  1500 
840  DATA  "a",  1.2.  2,  4,4,  4,4,8 
850  DATA  "b".  O,  O.  O,  O,  1. 3.  6,  9 
S60  DATA  "c". O,  O,  63,223,  198,2,  128,64 
870  DATA  "d“,  O,  O.  192,0,  1, 0,0.  O 
880  DATA  "e".  56,  56,  120,  252,  140,  12.  4.  28 
S90  DATA  "f",  8,  8,  8,  8,  8,  8,  8,  8 
900  DATA  "9",  O,  O,  O,  O,  O,  O,  O,  8 
910  DATA  "h"  .0,0,  O,  O,  O,  O,  O,  4 
920  DATA  "  j  ",  9,  24,  28,  30,  56,  32,  32,  48 
930  DATA  "J  ",  O,  O,  O,  O,  O,  1,  O,  O 
940  DATA  "K",  28,  28,  124,  124,  252,  252.  28,  23 
950  DATA  "  I  ",  O.  O,  0,0,  O,  O,  O,  248 
960  DATA  "m",  8.  8,  8,  8,  4,  12,  20,  34 
970  DATA  "n”,0.  O,  0,0,0,  0,0,  1 
980  DATA  "o"  ,4,  4,  4,  4,  4,  4,  252,  O 
990  DATA  "o",  8,  8,  8,  8,  8,  8,  4,  3 
1000  DATA  "q'\  56,  62,  16,  16,  16,  8,  8,  252 
1010  DATA  "r",0,  O.  1.2,  2.  7,  14,  28 
1020  DATA  "s",  9,  8,  240,  O,  O.  192,  48,  16 
1030  DATA  "t",  140,  141,0,0,0,  1,2,0 


1040  DATA  " 
1100  PRINT 
1110  PRINT 
1120  PRINT 
1180  REM 


j",0.  O,  128,  128,  192,  192,  192,  64 
AT  11,10;"  a  bede" 

AT  12. 10: "  f  9h i  JKI" 

AT  13.10;"  mnocq  rstu" 


430 

REM 

1200 

FOR  m 

=  1 

TO  15:  GO  SUB  1500 

440 

FOR  m 

=1  TO  18:  GO  SUB  1500 

1240 

DATA 

"  a  ". 

.  70,  73,  72,  32.  32,  30,  1, 0 

490 

DATO 

"  a  " « 

,  16,  23,  52,  40,  56,  48,  4e,  40 

1250 

DATA 

"b" 

,  2,  2,  132,  68,  37,  61,  194,  1 

500 

DATO 

"  b  "  i 

,  64,  127,  32.  24,  7,  64,  32,  16 

1260 

DATA 

"c" 

,64.68,  136,  136,  16,8.  136, 

510 

DATO 

"C"; 

,  15,  248,  108,  19,  241, 30,  51 ,  192 

1270 

DATA 

"d" 

,2,  4.8.9,  17,  18,  18,54 

520 

DATA 

"  d  "  - 

,  192,  192,  0,  129.  126,  0,  192,  63 

1280 

DATA 

.0,  0,  128,  4,  8,  16,  16,  16 

530 

DATO 

"  o* "  , 

,  12,  24,  49,  194,4,  24,  224,0 

1290 

DATA 

"f  " 

,31.56,56,62,56,62,24,  14 

540 

DATO 

"  f  ” 

,  65,  129,  1,2.  28,  0.  0,  0 

1300 

DATA 

.0,0,  7,3,0,  1,2,  12 

550 

DATA 

"9" 

,  31, 31,  11, 7,  31, 2.  6,  124 

1310 

DATA 

"h" 

.64,64.  192,  128,  128,0,0,0 

560 

DATO 

"h" 

,  36,  54,  17,  30,  14,  6,  2,  1 

1320 

DATA 

H  |  M 

,51,0,  0,0,  0,  0,  0,  0 

570 

DATA 

M  j  •• 

.  15,32,  192,0,0,0,0.  178 

1330 

DATA 

II  j  II 

,  225,  0,  0,  0,  0,  0,  0,  0 

580 

DATO 

"  j  " 

,  0,  0,  0,  0,  0,  7,  15,  0 

1340 

DATA 

"k" 

.  16,  252,  3,  0,  0,  0.  0,  0 

590 

DATO 

"K" 

,  0,  0,  0,  0,  134,  154,  143,  252 

1350 

DATA 

•• ,  n 

.  33.  223,  0,  0,  0,  0,  0,  0 

600 

DATO 

,  60.  62,  11 . 25,  19.  227,3,  3 

1360 

DATA 

"m" 

.254,  1,0,  0,0,0,  0,0 

610 

DATA 

"m" 

,  0,  0.  128.  192.  192,  192,  192,  224 

1370 

DATA 

"n" 

,  0,  255,0,  0,  0,  0.  0,  0 

620 

DATA 

"n" 

,  225,  61, 7,  0,0,  0,  1.  1 

1380 

DATA 

"o" 

,  48,  192,  0,  0,  0,  0.  0,  0 

630 

DATO 

"o" 

,  0,  128,  192,  64,  128,  128.  0.  0 

1450 

PRINT 

AT  14*101"  abede  f  eh" 

640 

DATO 

"  o" 

,  3,  6,  8.  0,  0.  0,  0,  0 

1460 

PRINT 

AT  15*101"  ijkimno" 

650 

DATA 

"a  " 

,  152,  14,  15,  15,  15,  24,  0,  0 

1499 

STOP 

660 

DATO 

"  r  " 

,  0,  0.  0,  192,  192,  160,  16,  16 

1500 

READ 

c* 

700  PRINT  AT  8, 10; "abcdef 9" 

710  PRINT  AT  9,10; "hi  jWlm" 
720  PRINT  AT  10,10;“  no  pqr" 


1510  FOR  n=0  TO  7 
1520  READ  x 

1530  POKE  USR  c*+n.x:  NEXT  n:  NEXT 
1540  RETURN 


I 


PROGRAM :  FLYS I M. 773 

lø  DIM  MC*(28> : GOSUB  2700 
20  HI*="  S l"HI=lø 
3ø  PRINT" <CLR<  HVID) "CHR*(8>  < 

: POKE  53265; 1 1 : POKE  53280-0 
POKE  53281  -  0 : POKE  650-128 
40  P I =0 : RO=0  : L V=0 : MH=0 : TM=0 : FU=0 : CT=0 
: AM=ø : W I =ø : TH=ø : SP=0 : BR*= " " : FLf* " " 
:  FP=1 

50  UC*= " " = EH=0 : ED=0 = HE=ø •’ X=0 :  I  =0  : A“0 
K=0 : ES=ø : EN=ø : CL=0 : FL=0  =  CN=0 : AD=0 
AL=0:CP=1 
60  CC=0 

70  FOR  1=54272  TO  54294  POKE  I,ø:NEXT 
: POKE  54295, 3  POKE  54296,30 
80  POKE  53272  , 22 : PR  I NT " ( CRSR  HØJRE  )"1 
ILOT  I  RAINER" 

90  PRINT" (HOME, CRSR  NED, 

CRSR  VENSTRE  19)  1 1 -SCORE : "HI"  "HI* 
løø  PRINT" (CRSR  NED3-  GUL)->N  THIS  GAM 
E  VOU ' RE  SUPPOSED  TO" 
llø  PRINT" (CRSR  NED) FLY  A  JETFIGHTER 
OVER  fl  MOUNTAIN" 

12ø  PRINT" (CRSR  NED) RANGE  - 

SHOOT  DOWN  AN  ENEMV  PLANE- " 

130  PR I NT "(CRSR  NED >F IND  THE  RUNWAY 
ON  THE  OTHER  SIDE" 

140  PRINT" (CRSR  NED) AND  LAND  ON  IT.-. 

F  VOU  END  HERE-  VOULL" 

150  PR  I  NT  "(CRSR  NED)GET  A  (HVID)liV 
< GUDBONUS,  A  (HVIB)_/“L  (GUL)BO 
NUS- " 

160  PRINT" (CRSR  NED) AND  A  (HVID>L“X“ 
L  ( GUL) BONUS .->F  YOU  GET  THE  HIGH-" 
170  PRINT" (CRSR  NED) SCORE  - 

YOU'LL  BE  ABLE  TO  ENTER  VOUR" 

180  PRINT" (CRSR  NED) INITIALS. " 

POKE  53265- 27  FOR  S=1  TO  500: NEXT 
190  GOSUB  370  POKE  53265-11 
200  PR I NT " ( CLR -HVID) “ONTROLS  : “ 

210  PR I NT "(CRSR  NED, GRØN)_UNCTION 
(HVID)  I (GRØN)-ONTRQL" 

220  PRINT"(HVID) - 1 - 


230  PRINT" ( GRØN )LEFT/-IGHT  (HVID)I( 
GRØN)  T  1*1  2  UEFT/-IGHT" 

24ø  PRINT'HITCH  UP/DN  (HVID)  I  (GRØN)  ' 
n*K~'  2  -P/-OWN" 

250  PR  I  NT" -AD  AR  •  (HVID)  I  (GRØN)-' 
EY 

260  PR  I  NT  "  I  HRUST  +/-  <  HV I D )  I  (  GRØN )  ■> 
EYS  +/-" 

270  PR  I  NT  "  -LAPS  UP/DN  ( HV  I D )  I  (  GRØN  ) J 
EY  -" 

28ø  PRINT"  -NDERC .  UP/DN  (HVID)  I  (GRØN)-' 
EY 

290  PRINT"— I RE  GUNS  (HVID)  I  (GRØN)  ' 
n*l%-“'  2  -IRE  BUTTON" 

300  PR I NT " I  RAKES  ( HV I D ) I ( GRØN ) - 

“I 

310  PRINT"  I  AIL  OUT  (HVID)  I  (GRØN)'' 
EY  -2" 

320  PRINT" (HVID) - 1 - 


330  PRINT" (CRSR  NED- CYAN) I  HIS  GAME  S 
I MULATES  AN  (RVS  ON- 
RøD  )-,/*!  -  ,\~/l  -Dl  1 1  (  CYAN , 

RVS  OFF)", 

340  PRINT" (CRSR  NED) AND  IT'S  (RVS  ON, 
RØD) /TI  (CYAN, RVS  OFF, 

SPACE) PØSSI BLE  TO  MAKE  (RVS  ON, 
RØD)*/  l( CYAN,  RVS  OFF- 
SP  ACE ) USE  OF"; 

350  PRINT" (CRSR  NED) A  COCKPIT  WINDOW 
. (%T'S  CLOUDV  WEATHER ! ) " 

POKE  53265-27 

36ø  FOR  S=1  TO  500 : NEXT : GOSUB  370 
GOTO  4øø 

370  PR I NT "(HOME -CRSR  NED23, LILLA, 
SPACE)  “PESS  _-l  ,-/  KEY  TO  CONTINU 
E."  POKE  198,0 

380  GET  A*  IF  A*OCHR*(  13)THEN  380 

390  RETURN 

400  PRINT" (CLR- CRSR  HØJRE3, 

HVID) "LEASE  SELECT  SKILL  LEVEL  1- 

4 10 "PR I NT "(CRSR  NED, CRSR  HØJRE3, 

RVS  ON-HVID)-**  KRVS  OFF, SPACE, 
LILLA)=  (CYAN) 123456789  (LILLA)= 
(RØD, RVS  ON^VPHML  (RVS  OFF) 
POKE  198,0 

420  GET  A*  IF  A*<"l"OR  A$>"9"THEN  420 

43ø  REM  MH=MOUNTAIN  HEIGHT  TM=TIME  F 
IJ=FUEL  RM=AMMO  WI=WIND  SPEED 

44ø  LV=VAL(A*) 

450  MH=L V* 1 1 05+ ( I NT ( RND ( 0 ) *500 ) ) 

460  TM=( lø-LV)*24ø+( INT (RND(0)*20> ) 

IF  TI-K960  THEN  TM=96ø 

470  FU=50+ ( ( 9-LV ) *5 ) + ( I NT ( RND ( 0 ) *30 ) ) 

480  AM=11-LV+(INT(RND(0)*5)> 

490  WI=INT (LV/3) 


500  POKE  53265- 11  PRINT" (CLR, 

HVID)  I  HE  MOUNTAINS  ARE(CVRN)";MH; 

“ (HVID)FEET  HIGH.” 

510  PRINT" (CRSR  NED)  IOU  HAVE (CYAN) " ; 

TM; “(HVID)SECONDS  TO  COMPLETE. " 

520  PR I NT “(CRSR  NED)  IOUR  TANKS  RRE  C 
ONTA I N I NG ( CYAN ) " , FU , 

"(HVID) GAL. FUEL." 

530  PRINT" (CRSR  NED)  IOU  HAVE(CYAN)"; 

AM ; " ( HV I D ) GUN  ROUNDS . " 

540  PRINT" (CRSR  NED) O IND  SPEED(CYRN) 
UI ; "(HVID, CRSR  VENSTRE)." 

55ø  PRINT" (CRSR  NED)*TARTING  RUNWAY 
0-50" 

560  PRINT" (CRSR  NED)~NDING  RUNWAY 
:  700-750“ 

570  PR I NT " ( CRSR  NED2)-EMEMBER  THIS, 

IT 'S  VERY  IMPORTANT." 

580  PR I NT " ( GRØN )  - - 

590  POKE  53265, 27  FOR  S=1  TO  5øø : NEXT 
GOSUB  370 

600  EN=  I  NT  (  RND  ( 0 )  *2øøø  ) +300 
610  EH=INT(RND(0)*360) 

620  ED=INT(RND(ø)*5ø)+10ø 
630  HEAD=27ø :  ALT=ø  •'  LA=ø :  FL=0  :  RO=0 
; SP=0 : FL=FU 

640  REM  HE=HEADING,  AL=ALTITUDE, 

LA=L ANDED  ?  1=V-  FL=FLAPS, 

RO=ROLL - SP=SPEED 

650  POKE  53272-21  PRINT" (CLR- HVID, 
SPACE4)  i - 


660  PRINT"  (BLAA)*  (HVID)  l(ORANGE)M 
ESSAGE  FROM  COCKPIT  COMPUTER  (HVI 
D) I  (BLAA)*" 

670  PRINT"  *  (HVID) I  (RØD)- 

(HVID)  I  (BLA 

R  )  $  " 

680  PRINT"  (HVID)  1 - - - 


69ø  SC*=" (HOME, CRSR  NED15) " 
7øø  PRINT" - 


71ø  PRINT" (CRSR  NEDlø)- 


720  POKE  54283, 16  POKE  54284,0 
;POKE  54285, 200  POKE  54280-0 
: POKE  54283-17 

730  POKE  54276, 128  POKE  54277,0 
POKE  54278, 200  FOKE  54276,129 
740  C*=CHR*(13)  UC*="DOWN"  FL*="OFF" 
BR*= " OFF T I $=" øøøøøø " : GOSUB  1 680 
: EE=ED 

750  TH=ØME*=" (HOME -CRSR  NED2, 

CRSR  Hø JRE5 , SPACE30 , 

CRSR  VENSTRE27) " 

76ø  ME*=ME*+“ (CRSR  VENSTRE3 ) " 

770  J=PEEK( 56320)  GET  A* : P=J  AND  16 
; J=J  OR  16 


780  IF  A*<>"  "THEN  840 
79ø  GOSUB  2620 
8øø  IF  UC*<> " DOMN “THEN  830 
810  UC*="UP  "GOSUB  1680 : WI=WI-1 
IF  AL=ø  THEN  A=l  GOTO  2020 
820  GOTO  1210 

830  UC*= "DOWN"; GOSUB  1680WI=WI+1 
GOTO  1210 

840  IF  J0123  THEN  870 
850  IF  R0>-90  THEN  RO=RO-l 
86ø  GOTO  1210 
870  IF  JOl  19  THEN  900 
880  IF  R0C90  THEN  RO=RO+I 
890  GOTO  1210 
900  IF  JO  125  THEN  930 
910  IF  PI <80  AND  SP>2øø  THEN  PI=PI+1 
920  GOTO  1210 
930  IF  J0126  THEN  960 
940  IF  PI >-80  THEN  PI=PI-1 
950  GOTO  1210 
960  IF  A*<> " + " THEN  990 
970  IF  THC100  AND  FU>0  THEN  TH=TH+2 
IF  SP<1100  AND  BR*=" OFF "THEN  SP= 
SP+5 

980  GOTO  1210 
990  IF  A*Q"-"THEN  1020 
1000  IF  TH>0  THEN  TH=TH-2 
■ IF  SP>0  THEN  SP=SP-5 
lølø  GOTO  1210 
1020  IF  A*<>"F" THEN  1060 
1030  GOSUB  2620 

1040  IF  FL*="OFF"THEN  FL*="ON  " 
WI=WI+1  FP=2G0T0  1210 
1050  FL*="OFF" : FP=1 : WI=WI-1 : GOTO  1210 
1060  IF  A*OC*THEN  liøø 
1070  GOSUB  2620 

1080  IF  BR*="ON  "THEN  BR*="OFF" 

GOTO  1210 

1090  BP*="ON  "GOTO  1210 
liøø  IF  AtO"R"THEN  1140 
1110  K*=ME*+"HEAD  "+STR*(EH) 

IF  ES=0  THEN  K*=K*+"  DIST 
■ " +STR* ( EB ) + “  HGHT ; " +STR* ( EN ) 

1120  GOSUB  1890 
1130  GOTO  1210 
1140  IF  POø  THEN  1190 
1150  IF  AM=ø  THEN  K*=ME*+“OUT  OF  RMM 
UNITION  !" ; GOSUB  1890  GOTO  1210 
1160  AM= AM- 1 : GOSUB  1870 
1170  GOSUB  2520: IF  CK=1  THEN  K*=ME*+ 
"ENEMY  PLANE  HIT  !!":GOSUB  2500 
: ES= 1 : GOTO  2550 

1180  PRINT  ME*"GUNS  MISS.") AM; 

"ROUNDS  LEFT": GOSUB  1820: GOTO  1210 
1190  IF  A*<>"(F2) "THEN  1210 
1200  A=9 : GOTO  2020 
1210  IF  SP<0  THEN  SP=ø 
1220  IF  SP>1100  THEN  SP=1100 
1230  CN=CN+SP/løøø*((3ø-LV)/25) 
:CT=INT(CN)  GOSUB  1630 
IF  TI/60>TM  THEN  A=2:G0T0  2020 
1240  POKE  54273, lø+TH: POKE  54294, 


22 


60+TH 

1250  POKE  54280,  80+SP/6. 5 
1260  IF  SP<TH#lø  RND  BR*="OFF"THEN  S 
P=SP+10 

1270  SP=SP-(CL+1 )/5 : SP=INT (SP) 

1280  IF  RLOØ  THEN  X=ø  GOTO  1300 
1290  X=X+SPIF  X>20000  THEN  A=3 
: GOTO  2020 

1300  IF  CL<PI  THEN  CL=CL+ . 5*FP 
1310  IF  CL>PI  THEN  CL=CL-1 
1320  IF  CL>0  THEN  SP=SP-CL/2 
1330  IF  CL<0  THEN  SP=SP+CL/2 
1340  IF  RIK50000  THEN  RD=RD+CL 
:RL=INT(RD) 

1350  RD=RD-(10-SP/50):IF  RDCØ  THEN  R 
D=0 ; AL= I NT ( RD ) 

1360  FL=FL-TH/10øø : FU=INT (FL) 

: IF  FUOØ  THEN  TH=ø 
1370  IF  BR*0" OFF "RND  SP>=10  THEN  SP 
=SP-20 

1380  IF  UKl  THEN  1430 
1390  IF  RND(0)<.9+((12-LV)/100)THEN 
1430 

1400  IF  RND<0>>=. 5  THEN  1420 
1410  R0=R0+WI  PRINT  ME*"WIND 

: " , ABS(WI > : GOSUB  1 820 : GOTO  1430 
1420  RO=RO-WI : PRINT  NE$"WIND  :";WI 
: GOSUB  1820  GOTO  1430 
1430  IF  SP<0  THEN  SP=ø 
1440  IF  RLOØ  RND  RLOØ  RND  RND(1)>. 
95  THEN  PRINT  MEf'GROUND  WRRNING 
! " : GOSUB  1820 
1450  IF  RL>0  THEN  1510 
1460  IF  UC*O"D0WN"THEN  R=10 
: GOTO  2020 

1470  IF  CT>=7øø  RND  CT<=?50  RND  CC=ø 
RND  SP=ø  THEN  GOSUB  2560 
:GOTQ  1210 

1480  IF  CT>20  RND  CT<700  THEN  R=4 
GOTO  2020 

1490  IF  CT>750  RND  CT<1500  THEN  R=4 
GOTO  2020 

1500  IF  CLC-8  THEN  R=5  GOTO  2020 
1510  IF  CT=200  OR  CT=250  THEN  Kt=ME* 
+" MOUNTRIN  WRRNING  !":G0SUB  1890 
1520  IF  CT0300  THEN  1550 
i  tc  qi  /-mu  tucki  o-c  nnm 

1540  K$=NE*+'“  MOUNTR I  NS  "CROSSED . " 
GOSUB  1890 

1550  IF(CT=35ø  OR  CT=400)RNB  ES=0  TH 
EN  K*=ME*+"ENEMV  PLANE  WRRNING  !" 

: GOSUB  1890 

1560  IF  0TO550  THEN  1600 
1570  IF  ES=1  THEN  PRINT  ME*"RUNWRV  I 
H  SIGHT. “ : GOSUB  1820: GOTO  1600 
1580  GOSUB  2520  IF  CK=1  RND  RHD(0)>. 
8  THEN  2650 

1590  K*=ME*+" ENEMV  RTTRCK  WRRNING  !" 

GOSUB  1820  R=7 ; GOTO  2020 
1600  HE=HE+INT((R0*SP)/500) 

IF  HE<0  THEN  HE=360-R0 : GOTO  1620 
1610  IF  HE>359  THEN  HE=HE-360 
1620  GOSUB  2520: IF  CK=1  THEN  PRINT  M 
ET "ENENV  IN  GUN  RRNGE  ! " 

: GOSUB  1850 
1630  GOSUB  2680 

1640  IF  CL*10>SP  THEN  fl=8:G0T0  2020 
1650  ED=INT(EE) 

1660  IF  RND(0)>. 9  THEN  EN=EN+INT <RND 
(ø)*3)-l 
1670  GOTO  770 

1680  PRINT" (HOME, CRSR  NED 1 6 > THRUST 
(CRSR  VENSTRE5)“;TH; 
"(CRSR  VENSTRE«" 

1690  PRINT “FLRPS  :  " , FL* 

1700  PRINT" UNDERCRRR .  :  " , UC* 

1710  PR I NT "RLT I TUDE 

(CRSR  VENSTRE6) " i RL 
1720  PRINT "PITCH 

(CRSR  VENSTRE3 ) " ; P I 
1730  PR I NT " fl I RSPEED 

(CRSR  VENSTRE8) “i SP 
1740  PRINT" (CRSR  0P6>"; 

1750  PR I NT "(CRSR  HØJRE23 ) BRRKES 

M  •  £ 

1760  PRINT" (CRSR  HØJRE23)TIME 
:  ";TI* 

1770  PRINT" (CRSR  HØJRE23)FUEL 
(CRSR  VENSTRE4 ) " ; FU 
1780  PRINT " (CRSR  Hø  JRE23) HEAD  I NG 
(CRSR  VENSTRE4) ” ; HE 
1790  PR I NT “(CRSR  HØJRE23)R0LL 
(CRSR  VENSTRE4)";R0 
1800  PR I NT “(CRSR  HØJRE23)DISTANCE 
:  " ;  CT 

1810  RETURN 

1820  POKE  54290, 32  POKE  54291,0 
POKE  54292,200 

1830  POKE  54290, 33  FOR  1=1  TO  6 
1840  FOR  S=100  TO  50  STEP-3 
POKE  54287 , S : NEXT : NEXT 


POKE  54290, 32: POKE  54287, 0 : RETURN 
1850  POKE  54290, 32: POKE  54291,28 
POKE  54292,0 

1860  POKE  54287, 50= POKE  54290,33 
: FOR  S=1  TO  500 : NEXT : RETURN 
1870  POKE  54290, 32: POKE  54291,0 
POKE  54292,200 

1880  POKE  54287,1: POKE  54290,33 
FOR  S=1  TO  1000  NEXT 
: POKE  54290, 32: RETURN 
1890  POKE  54287,0  POKE  54290,64 
1900  POKE  54292, 200  POKE  54290,65 

POKE  54289, 100 : FOR  1=1  TO  LEN(K*) 
1910  fl*=MID*(K*, I , 1 ) : PRINT  R*; 

1920  W=RSC(fi$)-64 

1930  IF  W<1  OR  W>26  THEN  NEXT  PRINT 
: RETURN 

1940  MC*=MC*(W) 

1950  FOR  X=1  TO  LEN ( MC* ) 

1960  S*=MID*(MC*,X, 1) 

1970  IF  S*= THEN  POKE  54287,70 
FOR  D=1  TO  50: NEXT: POKE  54287,0 
: GOTO  1990 

1980  POKE  54287, 70: FOR  D=1  TO  10: NEXT 
POKE  54287,0  GOTO  1990 
1990  FOR  D=1  TO  5  NEXT  NEXT 
2000  FOR  D=1  TO  2ø: NEXT  NEXT  PRINT 
: RETURN 
2010  STOP 

2020  CP=øPOKE  54273,0  POKE  54280,0 
POKE  54287,0 

2030  POKE  54276, 128  POKE  54273,0 
POKE  54278,0  POKE  54277,29 
: POKE  54294,160 
2048  POKE  54280,0 
2050  FOR  S=1  TO  1 Øø: NEXT 

POKE  54273, 10 : POKE  54276,129 
FOR  S=1  TO  100 

2060  POKE  53280, S/4  POKE  54294, 200-S 
POKE  54273 , 50- ( S/3 ) : NEXT 
: POKE  53280,0 

2070  K*=ME*+ "RI RCRRFT  DESTROVED. . . GR 
ME  OVER": GOSUB  1390 
2080  FOR  S=1  TO  2000  NEXT 
2090  PRINT" (CLR, CRSR  HØJRE2, 

GRØN) RERSON  FOR  ACCIDENT  :(HVID>" 
2100  ON  R  GOSUB  2140,2150,2160,2170, 
2180,2190, 2200 ,2210, 2220 ,2230 
2110  PRINT" (CRSR  NED, CRSR  HØJRE, 
GUDPRESS  SPACE  TO  CONTINUE.  " 

: POKE  198,0 

2120  GET  R*  IF  R*<>"  "THEN  2120 
2130  GOTO  2240 

2140  PRINT" (CRSR  NED ) UNDERCRRR I RGE  R 
EMOVED  ON  GROUND. ": RETURN 
2150  PRINT" (CRSR  NED) TIME  HfiS  RUN  OU 
T. “ : RETURN 

2160  PRINT" (CRSR  NED) OFF  THE  RUNWRV. " 

: RETURN 

2170  PR  I NT "(CRSR  NED)CRRSHED  I NTO  GR 
OUND. "RETURN 

2180  PRINT" (CRSR  NED)CRHSH  LANDING." 

: RETURN 

2190  PR I NT "(CRSR  NED)CRRSHED  I NTO  MO 
IJNTAINS.  "  RETURN 

2200  PR I NT "(CRSR  NED)SHOT  DOWN  BV  EN 
EMV  PLRNE. "  RETURN 

2210  PR I NT " ( CRSR  NED)STRLLED. TOO  MUC 
H  CLIMB...TOO  LESS  SPEED. " ; : RETURN 
2220  PR I NT "(CRSR  NED>BRIL  OUT." 

: RETURN 

2230  PRINT" (CRSR  NED ) UNDERCRRR I RGE  W 
ASN'T  LOWERED."  RETURN 
2240  CC=CT* . 2 : PR I NT " ( CLR , 

HVID) VOU  COMPLETED ( GUL )",CC. 

" (HVID)MILES, " : IF  CP=0  THEN  2280 
2250  B=INT((TM-TI/6ø)/5ø> 

PR I NT "(CRSR  NED, GRØN1TIME  BONUS 
: (HVID) " ; B : CC=CC+B 

2260  PRINT" (CRSR  NED, GRØN) FUEL  BONUS 
: (HVID) " ; FU*2 : CC=CC+ (  FU*2 ) 

2270  B=LV*50: PRINT" (CRSR  NED, 

GRØN) LEVEL  BOHUS  (HVID)"JB 
: CC=CC+B 

2280  FOR  S=1  TO  2000 : NEXT 

PRINT" (CRSR  NED, HVID)TOTRL  SCORE 
(GUL) "ICC 

2290  PRINT" (CRSR  NED)WHICH  GIVES  VOU 
THE  RRNKING" 

2300  PR I NT "(CRSR  NED) OF  " 

FOR  S=1  TO  3000  NEXT 
2310  X=INT (CC/100) 

2320  IF  X=ø  OR  X=1  OR  X=2  THEN  R*="B 
EG I NNER." 

2330  IF  X=3  OR  X=4  OR  X=5  OR  X=6  THE 
N  fl*=" PILOT." 

2340  IF  X=7  OR  X=8  THEN  R*="COMMRNDE 
R." 

2350  IF  X=9  OR  X=lø  OR  X=ll  THEN  R*= 
"RCE  ! " 

2360  IF  X>11  THEN  fl$=" SUPERMAN  !" 


2370  PRINT: FOR  i=ø  TO  161  POKE  646,1 
PRINT" (CRSR  OP, CRSR  HØJRE7)",fl* 

: NEXT  PRINT 

2380  PR I NT "(CRSR  NED2, 

CVRN ) - 


2390  PRINT"  (HVID)PRESS  RNV  KEV  TO 
RESTART  THE  ORME" 

2400  PRINT" (CVRN) - 

- " J : POKE  198,0 

URIT  198,1 

2410  PRINT"(CLR)”; : IF  CC>=HI  THEN  HI 
=CC 

2420  IF  CCOHI  THEN  30 
2430  PR I HT " ENTER  VOUR  INITIRLS  PLERS 
E  ...(CRSR  VENSTRES)”; :X=1  HI*="" 
POKE  198,0 

2440  GET  R*  :  IF(RJ<"fi"OR  flf'-'"Z")RND  R 
*OCHR*  (  20  )  THEN  2440 
2450  IF  fl$OCHR* ( 20 ) THEN  2480 
2460  IF  LEN(HI*)=ø  THEN  2440 
2470  HIS=LEFT$(HI$,LEN(HI$)-1):X=X-1 
PRINT" (CRSR  VENSTRE). (CRSR  VENST 
RE)"; : GOTO  2440 

2480  PRINT  A*;  :HI*=HI$+R$  X=X+1 
:  IF  X<4  THEH  2440 
2490  GOTO  30 

2500  POKE  54283, 128  POKE  54284,29 
POKE  54285 , 0 : POKE  54280 , 1 ø 
POKE  54294,220 

2510  POKE  54283,129  FOR  S=1  TO  2000 
NEXT : GOSUB  1 890  =  RETURN 
2520  REM 

2530  CK=ø : IF  ES=ø  AND(AL+10>EN  RND  fl 
L-lø<EN)RND  ED<=5  RND  ED>=-5  THEN 
CK=1 

2540  RETURN 

2550  EN=ø : EH= I NT ( RND ( ø ) *360 ) : ED=ø 
: GOTO  1210 

2560  IF  HEOEH  THEN  fl=4  G0T0  2020 
2570  IF  UC*O"D0WN"THEN  R=lø 
GOTO  2020 

2580  K*=MEt+ ” LRNDED  SRFELV. “ 

: GOSUB  1890 

2590  FOR  D=1  TO  løøø  NEXT 
2600  PRINT" (HOME, CRSR  NED9, 

CRSR  HØJRE ,  HV ID) CONGRRTULRT I ONS  ! 
LEVEL " ; L V " COMPLETED  ! " 

2610  PR I NT "(CRSR  HØJRE, 

GRØN  > - 

- ":FOR  S=1  TO  2øøø  NEXT 

: GOTO  2240 

2620  POKE  54287,0  POKE  54290,32 
POKE  54292,0  POKE  54291,23 
POKE  54290,33 
2630  POKE  54287,5 
2640  RETURN 

2650  PRINT "ENEMV  RTTRCK  WRRNING  !" 

: GOSUB  1870 

2660  IF  RND(0)>. 5  THEN  PRINT"WE'RE  H 
IT  ! " : GOSUB  1 820 : fl=7 : GOTO  2020 
2670  K*=ME$+" ENEMV  RTTEMPT  FRI LED  !" 

: GOSUB  1890: GOTO  1210 
2680  IF  HE=EH  THEN  EE=EE-1 : RETURN 
2690  EE=EE+1  RETURN 
2700  PRINT " (CLR) “;CHR*(8); 

: POKE  53280, 6  POKE  53281,6 
POKE  53265, 27  POKE  53272,21 
2710  GOSUB  2810 

2720  FOR  1=54272  TO  54294  POKE  1,0 
NEXT  POKE  54296, 30: POKE  54295,255 
: POKE  54294,255 

2730  K$=" (CRSR  NED, CRSR  HØJRE4, 

HVID)P  I  L  O  T  T  R  R  I  N 

E  R": GOSUB  1890 
2740  K*=" (CRSR  NED2,S0RT, 

CRSR  HØJRE'COPVRIGHT  1985  fl.O. 

D.  SOFTWARE  LTB" : GOSUB  1890 
2750  K*=" (CRSR  NED, CRSR  HØJRE? , 
GUDWRITTEN  BV  J.  BJERREGRRRD.  " 

: GOSUB  1890 

2760  K*=" (CRSR  NED2,CRSR  HØJRE, 

HVID)NOTE  (CRSR  NED) "GOSUB  1890 
2770  K*="COPVING,  LEHDING,  HIRING," 
GOSUB  1890 

2780  K$=" (CRSR  NED)BUV-BRCK, 

PUBLIC  PERFORMRNCE, "  GOSUB  1890 
2790  K$=" (CRSR  NED)TV  OR  RADIO  BROHD 
CRSTING  OR  DIFFUSION  OF" 

GOSUB  1890 

2800  K*="THIS  PROGRAM  IS  STRICTLV  RE 
COMMENDEB  !": GOSUB  1890 
2810  RESTOREPOKE  53265,2? 

FOR  1=1  TO  26  RERD  MC*( I ) :NEXT 
: RETURN 

2820  DRTR.  ,  — . , 


2830  DRTR.-., 


$0  23 
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Du  er  blevet  tårnudspringer 
ved  De  olympiske  Lege.  Støt¬ 
ten  er  maximal  tra  Team  Dan¬ 
mark,  så  de  forventer  et  godt 
resultat. 

Alle  instruktioner  er  indlagt  i 
programmet  så  det  er  nemt  at 
finde  rundt  i  de  mange  mulig¬ 
heder.  Jørn  Falk 


1  REH  S'  .  løRW  FOI  K  13/4  355-5 

2  LE"  F-  L  mB 

3  GO  sne  I øø© 

4  GO  SUB  1230 
E-  GO  SUB  1370 

e  LET  n  $  =  "  LET  b4  =  "0":  LET 

i  =  "  :  LET  e*  =  "«":  LET  v$  =  "fl" 

7  LET  scnrmS'  i  ET  kol=ø-  LET 


PU  =0 :  LET  f =4 
S  LET  s  C  1 =0 : 


5-  i  ET  ko  l=ø-  LET 
LET  hva=2© 

LET  s [2=0 •  LET  s 


C3=ø:  LET  S  C4=0 :  LET  SC5=0  l  ET 
3CS=ø:  LET  s  c  7=0 

iø  PEST ORE  50-  FOR  i  =5  TO  21 
S©  READ  a  4 

3©  PRTUT  RT  i  ,4.  INK  4,a$ 

40  NEXT  i  _ 

6©  DOTO  "  aEaHB" 

DOT  O 

DOTO  i 

50  DOTO  “  ^ 

100  DOTO  " 

110  DOTO  " 

120  DOTO  " 

13©  DOTO  *' 

14©  DOTO  " 

IB©  DOTO  " 

IB©  DOTO  " 

17©  DOTO  " 

IB©  DOTO  " 

15©  DOTO  " 

200  DOTO  " 

21©  DOTO 
22©  DOTO 
230  RE5TORE  250 
23B  REOD  a* 

240  FOR  i =0  TO  7 :  REOD  a:  POKE 
USR  atti.a:  NEXT  i 
250  DOTO  "a " , 0 , 255 ,0,0,0, 255 , 0 , 
ø 

300  FOR  a  =5  TO  21 

310  PRINT  OT  a,7,  INK  4;"*  S" 

315  PRINT  OT  a,B,  INK  1;"  )" 

320  NEXT  a  _ 

^B^RIN^T^ø, ,12;  INK  5;  "BHB 

•mtFW  PRINT  OT  3,17 

4øJ*’:  PRINT  OT  ^ ,  17j  “  I"  :  GO  TO  2 

370  FOR  a=0  TO  « 

364  IF  a <4  THEN  LET  pa=7 

3©6  IF  a ; =4  THEN  LET  pa=4 

388  IF  a=8  THEN  LET  pa=7 

350  PRINT  OT  20,  a;  INK  1;  POPER 


40ø"l  RINT  OT  21 ,  d  ;  INK  1;  POPER 
40&  Pet  puipuLl 

41©  IF  pu =20  THEN  LET  pu=ø:  GO 
TO  414 

411  GO  TO  405 

414  PRINT  OT  20,  a;  INK  1;  POPER 

4lé  |?RINT  OT  21,  a;  INK  1;  POPER 
pa;  "  I" 

417  LET  puspuLl 

418  IF  pli  =10  THEN  LET  pu  =0  GO 
TO  420 


44ø  TF  a  =4  THEN  LET  t  *■"!". 

y  $  =  "■" 

450  IF  a=8  THEN  LET  t *="■": 
LET  f=ø 

455  IF  a  =7  THEN  LET 

y  *»"■" 

460  PRINT  OT  20, a,  INK  f,t* 


TG  4  17 
a  <4  THEN 

LET 

t$=“  “ : 

LET 

a  >4  THEN 

LET 

t  *  =  "■  •: 

LET 

a  =4  THEN 

LET 

t*=" 

LET 

a  =8  THEN 

LET 

f* 

* 

II 

i 

LET 

LET  f =0 

a  =7  THEN 

LET 

!*="■• : 

LET 

470  PRINT  OT  21, a;  INK  f,y* 

550  NEXT  a 

600  FOR  a  =20  TO  3  STEP  -1 
6©2  IF  a  =4  THEN  LET  C*«"!” 

604  TF  a  =3  THEN  LET  V*="K" 

610  PRINT  OT  a,8,  INK  l,c* 

620  PRINT  OT  a+1,8;  INK  l;v$. 

625  LET  pu=PU4l 

63ø  IF  p  u  =25  THEN  LET  pu=0:  GO 

TO  635 

631  GO  TO  625 

635  PRINT  OT  a,S,  INK  1,  c  $ 

636  IF  a  =3  THEN  GO  TO  645 
64ø  PRINT  OT  3«- 1,8.;  INK  1;  bi 
645  LET  puspULl 

650  IF  pu  =  10  THEN  LET  pu=0-  GO 
TO  652 

651  GO  TO  645 

©52  IF  a  =3  THEN  LET  nt="K" 

66©  PR  TNT  OT  3  <- 1 , 8,  n$ 

57©  NEXT  a 

7©0  FOR  3=8  TO  17 

71©  PRINT  OT  3,a;  INK  1;  "1" 

72©  PRINT  OT  4  ,  a  INK  1;"K" 

725  LET  pu=pu+l 

73©  IF  p  u  =2©  THEN  LET  pu=ø  GO 
TO  740 

735  GO  TO  725 

740  PRINT  OT  3,a;  INK  1,  "  i" 

750  PRINT  OT  4 , a ,  INK  1 ,  "  1" 

755  IF  a  =  17  THEN  GO  TO  2000 

756  LET  puspuf! 

760  IF  pu =10  THEN  LET  pu=ø  GO 
TO  77© 

755  GO  TO  756 

770  PRINT  OT  3 , a ,  "  " 

78ø  PRINT  OT  4 , a ,  "  " 

75ø  NEXT  a 
555  STOP 

løøø  RESTORE  1040  FOR  i =0  TO  2ø 
1010  REOD  at 

1020  FOR  u=0  TO  7 :  REOD  at  POKE 


1020  FOR 


TO  7 :  REOD  a :  POKE 


USR  a$tu,a:  NEXT  u 
1030  NEXT  i 

1040  DOTO  "a ",1,1,1, 1,1, 1,1,1 
1050  DOTO  "b” ,3, 3, 3, 3, 3, 3, 3, 3 
1060  DOTO  "c" ,7,7, 7,7.7, 7, 7 .7 
1070  DOTO  "d  "  ,  15  ,  i5,  15 , 15 , 15 , 15  , 
16, 15 

1080  DOTO  "e" ,31,31,31,31,31,31, 

1050  DOTO  " f" , 63, 63,63,63, 63, 63 , 
©3,63 

1100  DOTO  "a ",  127, 127, 127, 127, 12 

7. 127. 127. 127 

1110  DOTO  "h" ,254,255, 254 ,254, 25 

4.255.254.254 

1115  DOTO  "u" , 127,255, 127, 127, 12 

7.255. 127. 127 

1120  DOTO  "i " ,255,254,252,248,24 

3.224.152. 128 

1130  DOTO  " j" , 15 ,31,63, 127, 127 , 1 
27, 127, 127 

1140  DOTO  “k" ,255,255,255,255,25 
4,252,248,240 

1150  DOTO  " l ",  110, 255, 255 , 255 , 25 

5.255.255.255 

1160  DOTO  "m", 58, 115,255,255,255 
,255,255,255 

1170  DOTO  "n" , 153, 185, 185, 153, 15 

3. 126. 126. 126 

1180  DOTO  "o" , 126, 126, 126, 102, 10 
2, 102, 102,231 

1150  DOTO  "p ",  126 , 126, 102, 155, 15 
5, 102,231,0 

1200  DOTO  "H" ,48 , 104 , 120,48, 48 ,5 

6.124. 126 

1210  DOTO  " r" , 123, 121, 120,56 , 60 , 
54 , 50 , 55 

1220  DOTO  "S" ,6, 13, 15, 6 , 6 , 7, 15 , 1 
1225  RETURN 


los  Ahjaeurjn 


1230  DfiTfl  "  t  "  ,  IS  ,  15 , 15 ,6 ,6 ,6 . 6 ,7 
12*ø  CLS  :  PRINT  RT  0 , 10; "TAftRNS 
PRING" 

1250  PRINT  RT  2,8; CHR*  12? ; CHRt 
32; CHR$  98;CHR$  121;CHR$  32; CHR$ 
74;  CHR$  48;CHR*  82; CHR*  78; CHR* 
32;  CHR $  70;  CHR$  65,  CHRJ  76,C.HR$ 

1260  PRINT  *’"I  TAARN5PRING  SKAL 
DU  DEFINERE"; '; "DINE  SPRING  SRR 
MEGET  SOM  MULIGT" 

1265  PLOT  255.121;  DRRU  -1,0;  DR 
RU  0,1:  DRRU  1,0 

1266  PRINT  "POINT  GIUES  EFTER  13 
SKRLREN . " 

1270  PRINT  RT  10 , 11; "STYRING" 
1275  PRINT  '"SPRINGER  MED  TASTEN 
H" 

1280  PRINT  "MRUEN  NEDAD  MED  TAST 
EN  8" 

1200  PRINT  "MRUEN  OPAD  MED  TASTE 

N  5" 

1300  PRINT  "HOUED  OPAD  MED  TASTE 
N  7" 

1310  PRINT  "HOUED  NEDAD  MED  TAST 
EN  6" 

1320  PRINT  "SIDDER  SIG  NED  MED  T 
ASTEN  L" 

1330  PRINT  "STRAEKKER  SIG  UD  MED 
TASTEN  X" 

134.0  PRINT  “SLAAR  EN  KOLBØT  HED 
TASTEN  8" 

1350  PRINT  AT  21,0;  FLASH  1; "TRY 
K  EN  TAST" 

1360  PAUSE  ø;  CLS 
1365  RETURN 

1370  CLS  :  PRINT  AT  2,0, "1.  SPRI 
NG.  " 

1380  PRINT  AT  4,0, "2.  GØR  PARAT, 
OG  SPRING." 

1385  PRINT  AT  6,0; "3.  REKORDFN" 
1300  IF  INKEY4  =  "  i"  THEN  LET  vae« 
1:  CLS  :  RETURN 

1400  IF  INKEY  $»"2"  THEN  LET  vae  = 
0:  CL5  :  RETURN 

1405  IF  INKEY$="3"  THEN  CLS  :  PR 

INT  AT  2,ø; "REKORDEN  ER  ";Kc-  PA 

USE  200:  GO  TO  1370 

1410  GO  TO  1300 

17øø  STOP 

2000  RE5TORE  2040 

2010  READ 

2020  FOR  i »0  TO  7:  READ  a:  POKE 
USB  a  $  +  i  . a  :  NEXT  i 

2040  DATA  "o" ,32,32,32,06, 102, 12 
■3,0,0 

2300  PRINT  AT  3,18;“*" 

2310  GO  51 JB  4030 

2315  PRINT  AT  1 , 20; "SPRING" 

2320  IF  INKEY  $  =  “h  "  THEN  GO  TA  23 
40 

2330  GO  TO  2320 

2340  LET  3-18:  LET  a$  =  "  II" 

2350  LET  b  =3 :  LET  b*  =  " 

2354  PRINT  AT  3,17;"  " 

2356  PRINT  AT  4,17;"  " 

2360  PRINT  AT  b,a,  INK  l;a* 

2364  LET  pusputl 

2365  IF  puilB  THEN  LET  pu=0-  GO 
TO  2370 

2366  GO  TO  2364 

2370  PRINT  AT  b,a;"  ":  LET  a=a  + 

2375  IF  a  >  =20  THEN  GO  TO  240© 
2380  LET  bab+l 
2300  GO  TO  2370 
2400  LET  a=a+l 

2405  LET  j$  =  "  ":  LET  h$  =  "  :  L 

ET  a*="J":  LET  b$  =  "l" 

2410  LET  b«b;l 

2460  REM  HER  FOREGAAR  SELUE  SPRI 
NGET 

2480  IF  INKEY $ « "?"  THEN  LET  scl= 
scl+1:  LET  Kwa*lB:  LET  a$="*":  L 

2400*IF*INKEY*="6"  THEN  LET  iC2» 
sc2+l:  LET  hva-15:  LET  I" :  L 

ET  b*  =  "  |" 

2500  IF  INKEY$»“8"  THEN  LET  sc3s 
3  c  3  + 1 :  LET  hvas  15  :  LET  at  =  "  I  I": 
LET  b|s" 

2510  IF  INKEY $  =  "  5"  THEN  LET  s  c4  = 
sc4  +  l:  LET  hva»16:  LET  a$  =  "^"': 
LET  b*  =  " 

2520  IF  INKEY$="l"  THEN  LET  i-cBss 
s  c  5  + 1 :  LET  hvaslø:  LET  a*  =  "i":  L 
ET  b*="l" 

2530  IF  INKEY*="x“  THEN  LET  i.  c6  = 
SC6+1:  LET  hva*17:  LET  at*"f":  L 
ET  b*  =  "«" 

2540  IF  INKEY*="b"  THEN  LET  Sc7  = 

SC7+1:  GO  SUB  5000 

2700  PRINT  AT  b,a,  INK  l;a$ 

2710  PRINT  AT  b  +  l,a;  INK  1;  bi- 
2000  IF  b *20  THEN  LET  L 

ET  J  *«"■" 

3000  LET  pu*putl 

3010  IF  pu chva  THEN  LET  pu=0:  GO 
TO  3030 

3020  GO  TO  3000 

3460  IF  b*10  TMEN  PRINT  AT  10,20 
;  INK  5;"W":  PRINT  AT  19,23;  INK 

34&5  IF  b  ■  lO  THEN  IF  a*  =  "|“  THEN 
LET  do -1 

346?  IF  b«10  THEN  IF  at<>”  THE 
N  LET  do  ssø 


34^2  91"  b  +  l,a;  INK  S;  j* 

3^5  ??TSl2gTTfiéa'G^OB^lø 

3480  LET  b  =  b  + 1 
3400  GO  TO  2420 

3500  LET  a*  =  "||":  LET  a  =a  + 1 :  LET 
b  =  b  +  l 

•3505  PRINT  AT  10,20;"  ":  PRINT  A 
T  10,23; "  " 

3510  PRINT  AT  b,a;  INK  1;  PAPER 
3520  GO  TO  Søøø 

4000  RESTORE  4030  FOR  i  =0  TC>  13 
4ølø  READ  a$ 

4020  FOR  o=ø  TO  7:  READ  p:  POKE 
U5R  at+o,p :  NEXT  o 
4025  NEXT  i 

4030  DATA  "a" ,0, 108,255,253,230, 
48 ,31,0 

4040  DATO  "b" ,0, 7,255,255, 135,0, 
0,0 

4050  DATA  "C"l38vl2,ia>12v15v.3S, 

30.30 

4060  DATA  "d" , 30 , 30, 60 , 124 , 76 ,04 
, 86 , 76 

4070  DATA  "e“ ,0,0,06,208,240,06, 
06 , 1 12 

4080  DATA  " t " ,254,255,240, 240,24 
0 , 254  , 127 , 0 

4000  DATO  "g" , 40, 105 , 121, 51, 54, © 
0 , 120 , 120 

4100  DATA  "h", 120, 120, 120,48,48, 
48,48,56 

4110  60TA  "i ",  0,0,0,225,255,255 , 
224 , 0 

4120  DATA  "J" ,240,24, 12, 103, 591, 
255,00,0 

4 130  DATA  " fc " , 153 , 180 , 180 , 153 , 15 
3,126,60,60 

4140  DATA  "b" , 60, 60,60, 60, 102, 66 
,  120, 120 

4150  DATA  "n" , 160,0,80,37,21,73, 

22.30 

4160  DATA  "o" ,8, 140,32,00,203 ,64 

, 180,224 

4500  RETURN 

5000  FOR  z  =  1  TO  4 

5010  IF  z=l  THEN  PRINT  AT  b,a,  I 
NK  1;  "^r" 

5020  IF  z=2  THEN  PRINT  AT  b-1 ,a; 

INK  1;  “*"  :  PRINT  AT  b,a;"*" 

5030  IF  z  =3  THEN  PRINT  AT  b,a;  I 
NK  1;  "J  |" 

5040  IF  z»4  THEN  PRINT  AT  b-3,a; 
INK  1;  "  |"  :  PRINT  AT  b,a;"i" 

5044  LET  pu=pu+l 

5045  IF  pu  =5  THEN  LET  pu=ø:  CO  T 
O  5050 

5046  GO  TO  5044 

5050  PRINT  AT  b-l,a," 

5060  PRINT  AT  b , a ; “ 

5070  NEXT  z 

5080  PRINT  RT  b,a;  INK  1;  "  |" :  PR 
INT  AT  b+l,a;“|* 

5000  RETURN 
5000  LET  puapufl 

6002  IF  pu  =200  THEN  LET  pu=ø:  GO 
TO  6005 

6004  GO  TO  6000 

6005  CLS 

6007  IF  do  =0  THEN  GO  TO  6080 
6010  IF  s  C  1 » 0  AND  s  c  1 <3  THEN  LET 
score  »scoretscl 
6015  IF  S  c  1 >2  THEN  LET  s  c  1=0 
5020  IF  s  c2  >0  AND  sc2<3  THEN  LET 
score*score«c2 
6025  IF  sc2>2  THEN  LET  sc2=0 
5030  IF  s  c3  >0  AND  SC3<3  THEN  LET 
score  =score+sc3 
6035  IF  S  c3  >2  THEN  LET  sc3=0 
6040  IF  S  c4  >0  AND  sc4t3  THEN  LET 
score=score+sc4 
6045  IF  set >2  THEN  LET  sc4>0 
8050  IF  s  c5  =  l  THEN  LET  score=sco 
retscS 

6055  IF  s  c5  > 1  THEN  LET  sc5=0 
6060  IF  S  c6  >0  AND  St6(3  THEN  LET 
score*scoretsc6 
6065  IF  s  c6  >  2  THEN  LET  sc6=0 
6070  IF  SC?>0  OND  S  C? <3  THEN  LET 
score=score+sc? 

6075  IF  s  c7  >2  THEN  LET  sc7=ø 
6080  PRINT  AT  2,13; "SCORE" 

6000  IF  do  =0  THEN  PRINT  ''"DISKE 
T":  PAUSE  100:  GO  SUB  1000:  GO  T 
O  5 

6100  PRINT  AT  5,0, "DOMMER  1:  ";s 

C  1 

6110  PRINT  AT  6,0, "DOMMER  2:  ";s 

c2 

5120  PRINT  AT  7,0; "DOMMER  3:  ",s 

C  3 

6130  PRINT  AT  8,0, "DOMMER  4:  ";s 

6140  PRINT  AT  0,0; "DOMMER  5:  "; s 

CB 

6150  PRINT  AT  10 , O; "DOMMER  6:  " ; 

5  c  6 

6160  PRINT  AT  11,0; "DOMMER  7:  " ; 

S  C? 

5170  PRINT  AT  13,0; "IALT  "; score 
6175  IF  score >hc  THEN  LET  hc=scc 

re 

6180  PRINT  OT  21,2; "TRYK  EN  TAST 
FOR  ET  NYT  SPIL" 

6100  PAUSE  0:  CLS  :  GO  SUB  lOØØ ; 
GO  TO  5 
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■  Hvis  du  går  meget  på  bibli¬ 
oteket.  hai  du  sikkert  også  få¬ 
et  rykkere  for  for  sent  afleve¬ 
rede  bøger.  Med  dette  prog¬ 
ram,  der  egner  sig  bedst  sam¬ 
men  med  en  diskettestation, 
kan  man  holde  styr  på  sine 
hjemlån. 

Hvergang  man  har  været  på 
biblioteket,  starter  man  prog¬ 
rammet  og  vælger  2  på  me¬ 


nuen.  Man  skal  så  indtaste 
aflevringsdatoen  for  de  bøg¬ 
er,  man  har  lånt  samt  navne¬ 
ne  på  alle  bøgerne. 

Hver  gang  man  så  skal  afle¬ 
vere  sine  bølger,  vælger  med 
3  på  menuen  og  indtaster 
navne  på  de  bøger,  man  af¬ 
leverer.  Det  er  nok  kun  at  ind¬ 
taste  starten  på  titlen. 

Endelig  kan  man  når  som 


helst  se  hvilke  bøger,  der  skal 
afleveres  hvornår,  ved  at 
vælge  1  på  menuen. 

Før  programmet  startes  første 
gang,  skal  man  skrive  følgen¬ 
de: 

OPENOUT  "bib.dat" 

PRINT  #9,0,0 
CLOSEOUTD 

Læs  Christensen 


10  ’  BIB-T  i  1  e  ( c  )  by  LCSo-ft 
12  ZONE  15 

20  INK  0,0:M0DE  2:PRINT  TAB (20) “ B  I  B  -  F  i  1  e” 

30  PRINT : PRINT  TAB ( 10) “ Indtast  dags  dato  ’15,3’  :  "i 
40  SYMBOL  AFTER  256: 0PENIN”bib. dat  - : MEMORY  HIMEM-1 
50  +alse= ( 1=0) : true= ( 1=1 ) 

60  INPUT#9, val ue. s, antal 
70  DIM  bog*<50) , value(50) 

80  FOR  bog=l  TO  antal : INPUT#9, bog* (bog) , value (bog) : NEXT  bog: CL0SEIN: SYMBOL  AFTER 
91 

90  SYMBOL  91, 126, 216, 216, 254,216, 216, 222:SYMB0L  92, 1 18, 200, 214, 214, 214, 38, 220: SY 
MB0L  93,56,0, 124, 198,254, 198, 198:SYMB0L  123,0,0,118, 

26, 126,216, 1 10: SYMBOL  124,0,0,118,204,214, 102, 220: SYMBOL  125.48,0, 120, 12, 124,204 
,  118 

100  INPUT  i  dato* 

110  p=INSTR (dato*, *  "):IF  p=0  THEN  PRINT"Duer  ikke,  prlv  igen  ! ” : GOTO  100 
120  dag=VAL (LEFT* (dato*, p-1 ) ) : maaned=VAL (MID* (dato*, p+1 ) ) 

130  IF  maaned=0  OR  dag=0  THEN  PRINT  *  Duer  ikke,  prlv  igen  !“ :G0T0  100 
140  DEF  FNvalue  (dag,  maaned  ,  aar )  =dag+32*maaned+416*  ( aar-85) 
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Programmør: 

Samtlige  aftrykte  listninger 
er  afprøvede  tør  offentlig¬ 
gørelse  Forlaget  betaler 
skattetrit  op  til  1000  kroner 
tor  godkendte  læserpro¬ 
grammer  Forlaget  har  ret  til 
at  aftrykke  godkendte  pro¬ 
grammer  i  bladet  og  odent- 
liggøre  dem  på  andre 
lagermedia 


150  DEF  FNdag (value) =value  MOD  32 

160  DEF  FNmaaned (value) =value\32  MOD  13 

170  DEF  FNaar (value) = (value\416) +85 

180  aar=FNaar (value. s) : IF  maaned<FNmaaned ( value. s)  THEN  aar=aar+i 
190  value=FNvalue  <dag,roaaned,  aar ) 

200  CLS: PRINT  TAB(20)"B  IB  File" 

210  PRINT  CHR*(13)CHR*(18) "D. " dag " / "maaned “ - “ aar "  Sidst  brugt  d. "FNdag (value. s 
) ■ / “FNmaaned (value. s) "-"FNaar (value. s) "  "an tal" bi 
ger  hjemme 

220  PRINT:PRINT  T AB (10) " 1  -  Liste  over  biger 
230  PRINTiPRINT  TAB(10>"2  -  L)nt  b i  ger 
240  PRINT :  PRINT  TAB(10)"3  -  Aflever  b  i  ger 
260  PRINTiPRINT  TAB ( 10) " Indtast  valg  :  "i 

270  INPUT  valg*: valg*=LEFT* (valg*, 1) : IF  valg*='"'  THEN  valg*=“l" 

280  IF  INSTR ("123”, valg*) =0  THEN  150 

290  0N  UAL (valg*)  GOTO  300,460,540 

300  'Liste  boger 

310  start=f alse: bog=l 

320  IF  bog>antal  THEN  420 

330  IF  value (bog) >=value  THEN  360 

" : star t=true 

350  G0SUB  680: bog=bog+l: GOTO  320 

360  IF  start  THEN  CALL  &BB18 

365  start=false 

370  IF  bog>antal  THEN  420 

380  IF  value (bog) -7>value  THEN  410 

390  IF  NOT  start  THEN  CLS:PRINT  TAB  (20)  "Skal  a-f  leveres  inden  for  1  uge!":start 
=true 

400  G0SUB  680 :bog=bog+l: GOTO  370 
410  IF  start  THEN  CALL  &BB18 
415  start=false 

420  IF  bog>antal  THEN  CALL  &BB18:60T0  200 

430  IF  NOT  start  THEN  CLS: PRINT  TAB ( 20) " \ vr i ge . " : star t=true 
440  GOSUB  680: bog=bog+l 
450  GOTO  420 
460  ’ Laane  boger 

470  CLS: PRINT  TAB(20)J"L  I  N  E  B  \  G  E  R" 

480  INPUT  "Indtast  afleveringsdato  ’ 17  3’  :  ",dato* 

490  p=INSTR  (dato*,  "  "):  d=VAL  (LEFT*  ( dato*,  p- 1  )>  :Tn=VAL  ( MID*  (dato*,  p+1 )  ) 

500  IF  p=0  OR  maaned=0  OR  dag=0  THEN  PRINT"Duer  ikke,  priv  igen  !" 

510  a=FNaar (value) : IF  m<FNmaaned (value)  THEN  a=a+l 
520  INPUT  "Indtast  bogens  navn  (eller  'STOP')  :  “,navn* 

530  IF  UPPER* ( navn*) =" STOP"  THEN  640  ELSE  antal=antal +1 : bog* ( antal ) =navn*: value ( 
antal ) =FNval ue ( d , m , a ) : GOTO  520 
540  'Aflevere 

550  CLS: PRINT  TAB(20);"A  FLEVERE  B  \  G  E  R " 

560  INPUT  "Indtast  bogens  navn  (eller  'STOP')  :  ",navn* 

570  IF  UPPER* ( navn*) = "STOP"  THEN  640 
580  FOR  bog=l  TO  antal 

590  IF  UPPER*(LEFT*(bog*(bog) ,LEN(navn*> ) )<>UPPER*(navn*)  THEN  630 THEN  , 
600  PRINT"Er  det  "bog* (bog) ;: INPUT  svar*: IF  UPPER* ( LEFT* ( svar*, i ))< >  J  THEN  6 

610  FOR  x=bog  TO  antal -1 : bog* ( x ) =bog* ( x  +  1 ): value ( x ) =value ( x+1 ): NEXT  x 

620  antal=antal-l:PRINT"Slettet. “ : GOTO  560 

630  NEXT: PRINT" Ikke  f undet ! " : GOTO  560 

640  'afslutte 

650  OPENOUT “ b i b . dat " 

660  WRITE#9 , value, antal 

670  FOR  bog=l  TO  antal : WRITEH9 , bog* ( bog ) , value (bog) : NEXT  bog: CLOSEOUT . GOTO  200 

680  'Udskrift  ,  ,  .  . 

^90  PRINT  FNdag (value (bog ) ) " / "FNmaaned ( val ue (bog) ) " - "FNaar (value (bog) ) , bog* (bog) 

: RETURN 
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Hole  in  one 


s? 


■  I  dette  program  kommer 
du  med  VIC-20  pd  golfba- 
nen.  For  at  gennemføre  spillet 
skal  du  igennem  9  huller,  og 
til  det  formdi  er  du  i  besiddel¬ 
se  af  9  køller  (hver  kølle  har 
sin  egen  slagstyrke  fra  1  til  9). 
Spillet,  som  er  lavet  til  en  stan¬ 
dard  VIC-20,  er  i  højopløselig 
grafik,  og  er  delt  op  i  to  dele. 
Hvis  du  er  en  nogenlunde  ha¬ 
bil  computer-golfspiller,  skul¬ 
le  det  være  muligt  at  klare  de 
9  huller  pd  36  slag.D 

Lars  Rosendal 


PRINT" M«*tøSI9-HULLET  GOLF  SPIL." 
1983" 


i  PRiNfanroao****  the  vic  open  ####" 

3  PRiNT"romwvrsT^*##*^ 

3  PR  I  NT"  »MIL  AVET  AF  LARS  ROSENIiRL  M 

10  V*37878 : POKEV, 15 

1 1  RERDN ,  D  :  IFN=-1  THENPOKE V ,  ø :  PQKEV-2 ,  ø :  POKEV-3 ,  ø  =  G0T020 

12  POKEV-3, N : POKEV-2, N : FORT=lTOD = NEXT : GOTOl 1 

15  DATA 1 95, 2øø , 207 ,  2øø  ,215, 6øø ,  ø ,  2øø ,  1 95 , 200 ,215,200 , 209 ,  6øø ,  ø ,  2øø 

16  DflTH215, 4øø, 207,400, 195,400, 175,400,-1,-1 

20  P0KE31 ,  ø  :  P0KE52 , 28 :  P0KE55 ,  ø :  P0KE56 , 28  =  CB«7 1 68 
25  RERDfl: IFfl=-lTHEN4ø 
30  F0RN=øT07 : RERDB : P0KECB+N+8MA, B : NEXT 
35  G0T025 

40  PRINT'TXSMnS  BEHØVER  DU  MI  NSTRIJKST.I  ONER?  OJ/N >" 

50  GETfl$: IFA*=" "THEN50 
55  I Ffl* * " J " THEN70 

60  I FR*= " N " THENPR I NT "  Mrø . K .  TRVK  'NEW'  OG  M_OAD  OG  RUN 


W GOLF  SPIL' 


65  PR I NT" »UHELD  OG  LYKKE!"  END 

70  PR  I  NT "  r®(WFLVT  MANDEN  TIL  BOLDENW1ED  TASTERNE 
73  PR  I  NT"  WR  -  OP  2  -  NED  IN-  VENSTRE  M  -  Hø.JRE" 

80  PR I NT "M< BOLDEN  VIL  FLVTTE  SIGMDIREKTE  VAEK"FRA  MAND-IEN  NRRP  DU  RAMMER.)" 

85  PRINT" MBMTR VK  SPACE!" 

90  GETA$  :  IFAFO"  "THEN90 

95  PRINT'TUNAAR  J1ANDEN  ER  I  KOR-  KREKT  POSSITION  TRVK  T.WDU  SKAL  INDPUTTE  KØLLE" 
100  PRINT"NR;  (ET  NR.  FRA  1  TIL  M9).  1  ER  DET  LAENGESTEM3LAG  OG  9  ER  EN  KØLLE" 
105  PR I NT "»SOM  KUN  FLVTTER  BOLDENWEN  TAK." 

110  PRINY"WBWTRYK  SPACE!" 

113  GETA*: IFA*<>"  "THEN115 

120  PRINT 'THRRØVC  AT  HOLDE  BOLDEN  »PAR  BANEN  OG  KLARE 
122  PRINT" »DET  NORMALE  ANTAL  SL AGIER  36." 

125  PR I NT "»TRVK  NU  'NEW'  »DG  'LOAD' 

126  PR I NT" »HELD  OG  LVKKE'" 

1010  DATAØ, 0,0, 0,24, 24, ø,ø,ø 
1020  DATR28, 16,24,28,30, 16, 16, 16, 16 
1030  DATR33 ,24,24,60,90,90,60,36, 102 
1 ø4ø  DATA36 ,24,60,126, 255 , 255 ,126, 6ø , 24 
1050  DATA37 ,24,24,24 , 24,24,24,24, 24 
1 060  DAT A26 , 255 , 255 , 255 , 255 ,255,255, 255 , 255 


»FORHINDRINGERNE. " 


»OG  RUN' 


1070  DATA1 ,3, 15,63,63, 127, 127,255,255 
1080  DATR2 , 1 92 , 24ø , 252 , 252 , 254 , 254 , 255 , 255 
1090  DAT A3 , 255 , 255 , 254 , 254 , 252 , 252 , 24ø , 1 92 
1100  DATR4 , 255 , 255 , 127, 127,63,63, 15,3 
1110  1)ATA32, 17,34,68, 136, 17,34,68, 136 
1120  DATA5, 232.126, 126,63,63, 126, 126,252,-1 


1  ø  P0KE36879 ,217:  pp  I  NT  "73"  H=ø:  SR=ø :  C=3ø720 
4ø  P0KE36869 , 255 : A=RND ( ø  > 

50  P.R  I  NT  "  ry*  '■  SC=0 

6ø  A= I NT  < RND < 1 > *5 )  + 1 : B= I NT  < PHD  < 1 ) *9 ) : D= 1 4-A-B : H=H+ 1 : POKE 198,0:1 FH>9THENG0SUB5øøø 
: G0T0600 

6 1  I FB<5THENZ=779ø : V=23 : V=ø : G0T070 
65  Z=8ø  1  ø :  V=-2 1  :  V=2 

70  FQRX=øTG6 : W=Z+X : POKEW+ 1,216: POKEC+ 1 +W , 5 
75  POKEW+23, 1 60 : POKEW+45 ,160: POKEW+67 . 1 6ø 
Sø  POKEW+89 ,216: P0KEC+89+W , 5 ; NEXT 

89  IFB=ØTHENllø 

90  FORX= 1 TOV#BSTEPV : W=Z+V+A+X : POKEW • 216 : POKEC+W, 5 
95  POKEW+22 ,160: POKEW+44 .160: POKEW+66 , 1 60 

1 øø  P0KEZ+88+ A+X ,216: P0KEC+88+Z+A+X , 5 : NEXT 

1 1 ø  FORX=øTOD : W=Z+A+V*B+X : POKEW+2 .216: P0KEC+2+W , 5 

1 1 5  POKEW+24 , 1 6ø : POKEW+46 ,160: POKEW+68 , 160: HEXT 

120  FORX=øTOD+ 1  W=Z+A+V*B+X : POKEW+89, 216 : P0KEC+89+W, 5 : NEXT 

130  F=Z+62+( V-l ) : POKEF , 28 : POKEC+F , ø 

1 40  POKEF- 1,26: POKEF+ 1,26: POKEF-22 , 26 : POKEF+22 , 26 

145  POKEC+F- 1 , 5 r POKEC+F+1 , 5 : POKEC+F -22, 5 : POKEC+F+22, 5 

1 50  W=Z+22*V+ A : POKEW+25 ,37= P0KEC+25+W , 2 : POKEW+3 , 36 : P0KEC+3+W , 5 

1 60  W*Z+A+V*B :  POKEW+2 , 37 :  P0KEC+2+W ,  2 :  POKFW-20 , 36  :  P0KEC-20+W ,  5 

17ø  POKEF-23, 1 :P0KEF-21,2P0KEF+21,4P0KEF+23,3 

175  POKEC+F-23, 5 : POKEC+F-21 , 5 : POKEC+F+21 , 5 : POKEC+F+23, 5 

176  IFA>2THEN18ø 

1 77  POKEF-2 , 5 : POKEF+C-2 , 6 : POKEF-24 , 5 : POKEF+C-24 , 6 : POKEF+20 , 5 : POKEF+C+20 , 6 
18ø  W=Z+ ( V- 1 ) #B ; POKEW+80 , 1 : P0KEC+80+W, 7 = POKEW+81 , 2 : P0KEC+81+W, 7 

1 9ø  POKEW+ 102,4: POKEC+ 1 ø2+W , 7 : POKEW+ 1 ø3 , 3 : POKEC+ 1 03+W , 7 

1 93  F0RX=768øT08ø98STEP22 : POKEX ■ 230 : NEXT  F0PX=77ø 1  TOS 1 1 9STFP22 : POKEX , 230  NEXT 
2øø  PRINT"HSHIJL  NR.  "H 

210  B=Z+45  :  BC=B+C  :  POKEB ,  ø :  M=7724  :  MC=M+C  :  POKEM ,  35  :  POKEMC ,  2  :  POKEBC ,  0 

220  N=23ø : NC= 1 : Q= 16øQC=l : V=36878 

4øø  P 1  =PEEK (1 97 )  :  IFP 1  =  1 7THENDM=-22 :  GOSUB 1  øøø 

405  I FP 1 =33THENDM=22 : GOSUB 1 øøø 

410  I FP 1 =28THENDM=- 1 : GOSUB 1 øøø 

415  I  FP  1  =-36THENDM=  1  :  GOSUB  1  øøø 

420  IFP1 =5øTHENG0SUB2øøø 

43ø  POKE 198,ø:l FP=28THENP=ø : G0T050 

440  G0T0400 

6øø  FORX= 1 T06000 : NEXT : P0KE36869 , 240 : PR I NT " H" ' END 
løøø  IF  <  M+DM ) <77ø20R ( M+DM ) >8 1 85THENDM=ø : RETURN 
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1010  P2=PEEK<M+DM> : IFP2=ø0RP2=360RP2=370RP2=280RP2=5THENDM=ø : RETURN 

1020  POKEM  ,  N :  POKEMC  ,  NC :  N=PEEK  <.  M+DM ')  ■  NC=PEEK(MC+DM>  :  POKEV,  15 :  POKEV-2, 200 :  POKEV-2, 

ø: POKEV, ø 

1 030  M=M+BM :  POKEM ,  35 :  MC=M+C :  POKEMC  ,  2  :  RETURN 

2øøø  DB=B-M  ••  I FDB*  1 ORBB*~ 1  OR  <  DB>-24ANDDB<-2ø  >  OR  <  BB>2øANDDB<!24  )  THEN2004 
2øøl  RETURN 

2øø4  POKE  198,ø:l  NPUT  "  SCBUnOMDiniK^^  NR .  "  ;  CL. 

2øø5  PRINT" MSNMMMMMMMWNM  3" :  I FCL <  1 0RCL>9THEN2004 

2006  I FQC=2470RQC=23 1 ORQC= 1 670RQC=70RQC=390RGC=230RCL »9THENR= 1 :G0T02øø9 
2Q08  R= 1 ø-CL+ INT<RND< 1 )*< 1 2-CL > 72 > 

2009  I FQ=32THENR=R- 1 

2012  SC=SC+1  PRINT"  5WiT ATiTiTiTsTiTiTsTÆ. L RO "  ;  SC 

2014  U=B+R#DB 

2015  P=P.EEK<W> : IFP=360RP=37THENW=W-DB : G0T02015 
2020  I FW<7724QRW>8 1 63THENW=B : RETURN 

2023  FORX=BTOWSTEPDB : P=PEEK<X> = IFP=23øTHENW=X-DB = G0T02025 

2024  NEXT : P=PEEK(W> 

2025  IFW=MTHEN:W=W-1 

2026  POKEV , 1 5 : FORX= 1 T02 : POKE V- 1 , 24ø : NEXT  =  POKE V- 1,0  =  F0RX=øT02øØ : NEXT 

2027  F0RX»22øT022ø-lø*RSTEP-2 : POKEV-2, X : NEXT : POKEV, ø = POKFV-2, 0 : I FP=5THENG0SUB45ø 

ø 

2028  IFW=MTHEN : W*W-1 

2029  I FP=28THENG0SUB4øøø = RETURN 

2030  POKEB , Q : B*M : Q=PEEK < B ) : POKEB , ø : POKEBC , QC : BOB+C : QOPEEK. C BC ) : POKEBC , 0 : RETURN 
4000  POKEV , 1 5 : POKE V- 1 , 24ø : FORX= 1 T02 : NEXT : POKEV , 0 

4005  PRINT'TBSHUL  NR. "H" BRUGTE  BU  M"SC  • "SLAG" : SR=SR+SC 

4010  PRINT" aWWmWTOTflL  "SR"SLAG" : F0RX=lT05øøø : NEXT : RETURN 

4500  PR  I  NT "  SWMrørøMfflrøsrørørøMWIKI I  VANDET  DU  TABER  ET  SLAGS"  :SC*SC+1  W=W~1 

4502  IFU*F+19THENW=W-22 

4505  POKEB , Q : B=U : Q=PEEK <B>: POKEBC , QC : BC=B+C : QC=PEEK C  BC ) 

45 1 0  FORX«  1 T03000  :  NEXT  :  PR  I  NT  "  SrølrølMKWlrøtWlICCrtSliiIsWa 

•I 

4515  PRINT "  MXimaamMiMSLftrj " ;  SC  :  RETURN 

5000  PRINT"  srarøWflDU  HAR  KLARET  9  HULLERWW1ED  "SR"  SLAG" 

5010  IFSR>36THENPRINT"aOBWDETTE  ER  "3R-36"SLAG  OVER  NORMALEN" 

5020  IFSR*36THENPRINT"SW«DETTE  ER  DET  NORMALF" 

5030  IFSR<36THENPRINT"  SrøflDETTE"  ER  "36-SR"SLAG  UNDER  NORMALEN " 

5040  RETURN 


Suicide  Mission 


Denne  gang  gælder  det  dit 
liv!  For  nu  skal  du  redde  jor¬ 
den  tor  de  frygtelige  aliens. 
Og  det  er  desværre  en  selv¬ 
mordsmission  -  så  ren  ikke 
med  at  du  overlever. 

Dette  spil  har  en  glimrende 
grafik  og  hastigheden  er  utro¬ 
lig  god  -  styringen  (joystick 
Port  1 )  er  der  heller  intet  i  vejen 
med.  Kort  sagt  tast  dette  pro¬ 
gram  ind  og  du  vil  ikke  blive 
skuffet.  □ 

Morten  Middelfart 
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1160  FOR  X=1  TO  8  PRINT: NEXT  X 
1170  PRINT"  PLEASE  PRESS  FIRE  TO 
BEG IN  " 

12øø  POKE  V,l:POKE  V+2 ,  1 : POKE  V+4,  1 
POKE  V+l , 2øø : POKE  V+3,2øø 
:POKE  V+5,  2øø : POKE  V+2 1,7 


6330  PRINT" 
6340  PRINT" 


VOU  LRNDED 
WERV  GOOD. 


1025  PRINT" I 

1030  PRINT"  I 
ON 

lø4ø_PRINT" I 

1050  PRINT" I 
MED  BV 
1060  PRINT"  I 

1070  PRINT"  I 
RRT 

lø8ø  PRINT"  I 

1090  PRINT"  ' - 

liøø  PRINT 
liøl  PRINT 
lllø  PRINT" 

1120  PRINT  POI 
1130  PRINT 
1140  PRINT" 

1150  PRINT  NR* 


SUICIDE  MISSI 


WRITTEN  «  PROGRRM 


MORTEN  MIDDELF 


1210  FOR  X=1  TO  2øø : POKE  V+4,X  NEXT  X 
1240  FOR  X=1  TO  15ø:  POKE  V+2, X: NEXT  X 
1250  FOR  X=1  TO  løø  POKE  V,X-NEXT  X 
1399  A=PEEK( 56321 )  :  IF  R0239  THEH  13 
99 

14øø  FOR  X=2øø  TO  250  POKE  V+4,X 
: NEXT  X 

1410  POKE  V+16, 4 

1420  FOR  X=1  TO  5ø  POKE  V+4, X: NEXT  X 
1430  FOR  X=2øø  TO  15ø  STEP-1 
POKE  V+5,  X ; NEXT  X 

1440  FOR  X=100  TO  150 : POKE  V,X:NEXT  X 
1450  FOR  X=2øø  TO  185  STEP-1 
: POKE  V+3,X:NEXT  X 
1460  FOR  X=150  TO  250 : POKE  V,X 
: POKE  V+2,X : NEXT  X 
1465  POKE  V+16, 7 : FOR  X=1  TO  39 
:POKE  V. X; POKE  V+2, X : NEXT  X 
1470  GOSUB  9700  FOR  X=135  TO  1  STEP-1 
:POKE  V+3,  X ; NEXT  X: GOSUB  9740 
: POKE  V+3, 185 

1475  FOR  X=39  TO  63: POKE  v,x 
: POKE  V+2i X : NEXT  X 

148ø  GOSUB  97øø  FOR  X=185  TO  1  STEP-1 
POKE  V+3, X: NEXT  X: GOSUB  974ø 
1481  POKE  V+3i 185 : FOR  X=63  TO  50  STE 
P-l :  POKE  V+2i  X :  POKE  V..X:NEXT  X 
1485  FOR  X=185  TO  150  STEP-1 

:POKE  V+3i X : NEXT  X:POKE  V+21i5 
1487  GOSUB  97øø: POKE  2042..  15 

FOR  X*1  TO  3øø: NEXT  X : POKE  V+21,0 
:POKE  V+2 l,ø  POKE  2042,14 
15øø  GOSUB  974ø 
1510  FOR  X=1  TO  3øø  NEXT  X 

1991  PRINT" (CLR)"  POKE  V+21,0 
POKE  V+16,ø 

1992  FOR  X=1  TO  lø : PRINT : NEXT  X 

1993  PRINT"  / - 

1994  PRINT”  IGET  RERDVI" 

1995  PRINT"  '■ - 

1999  RESTORE : GOTO  ø 

2000  MN=M+lø 

2001  IF  SPR>MN  THEN  160 

?010  PFM****#*FXPI  09 TON*********** 

2011  GOSUB  9700 
2ø2ø  POKE  V+2 1,5 

2ø3ø  POKE  2042, 15  FOR  X=1  TO  løø 
NEXT  X 

3øøø  GOSUB  9740  GOTO  330 
6øøø  PR I NT "(CLR)"  POKE  V+21,0 
6øøl  FOR  X=1345  TO  1798  STEP  32 
POKE  X, 46  NEXT  X 
6002  FOR  X=1400  TO  1461  STEP  40 
POKE  X, 46  NEXT  X 
6øø3  FOR  X=lø24  TO  1160  STEP  15 
POKE  X, 46  NEXT  X 
6ølø  FOR  X=1  TO  21 : PRINT: NEXT  x 
6ø2ø  PRINT"  V 

6ø3ø  PRINT"  ✓ - '  - - 

-  II 

6031  PRINT"  I  LAND  ON  FUE 

L  I" 

6035  SPR=245 
6037  POKE  V+2 1,1 
6040  FOR  X=1  TO  200 
6050  POKE  V, SPR : POKE  V+1,X 
6ø51  R=PEEK< 56321 ) : IF  R<>255  THEN  GO 
SUB  6100 
6ø6ø  NEXT  X 
6ø61  U=171 : R=175 
6ø7ø  IF  SPRMJ  THEN  6300 
6080  GOTO  64øø 
61øø  REM 

6110  IF  R=251  THEN  62øø 

6111  IF  fl=247  THEN  6250 
6130  RETURN 

62øø  SPR=SPR-1 

6210  IF  SPR=15  THEN  623ø 

6220  GOTO  6130 

6230  SPR=15 

6240  GOTO  6130 

6250  SPR=SPR+1 

6260  IF  SPR=25ø  THEN  6280 

6270  GOTO  6130 

6280  SPR=25ø 

6290  GOTO  6130 

63øø  IF  SPR>R  THEN  64øø 

6310  PRINT"(CLR)" 

6320  POKE  V+21 , ø : FOR  X=1  TO  8  PRINT 
NEXT  X 


Port  1 


PROGRRM:  SUICIDE  MISSION. 709 

ø  P=0 :  L=7 :  R=0  •' GOSUB  9500 

1  PRINT "<CLR)":SPR=ø: POKE  V+16, 1 

2  PRINT  CHR*(5) 

3  PRINT  CHR*( 142) 

4  A=(RND( 1 ) ) 

5  M=INT(fl#2øø)+2ø 

lø  PRINT"  / - 

- " 

11  PRINT"  I  POINT:";P; :PRINT"  LI 

VES: ";L; 

12  POKE  1184, 66: PRINT  POKE  1222,93 

13  PRINT"  - 

- j  i, 

14  POKE  2042, 14: POKE  v+4,M 

:POKE  V+5, løø: POKE  V+21 , 5 : SPR=7ø 

15  FOR  X=1  TO  320  STEP  5  SPR=SPR-5 

POKE  V,SPR 

16  IF  SPR=ø  THEN  GOSUB  9000 

17  R=PEEK<56321) : IF  R=239  THEN  løø 

18  NEXT  X 

19  U= 1 944 : H= 1 945 : POKE  1984,32 
: POKE  1985, 32  GOSUB  97øø 

20  FOR  X=1  TO  lø 

21  POKE  H,  77:  POKE  (j,78 

22  POKE  H+39, 32  POKE  U+40,32 

23  H=H-39 : U-U-40 

24  NEXT  X: GOSUB  9740 

25  L=L-1  :  IF  L=-l  THEN  200 

26  GOTO  1 

løø  POKE  2041 , 13 : POKE  V+40, 1 
POKE  V+2 1,7 

llø  FOR  X=225  TO  løø  STEP-5 
120  POKE  V+2, SPR: MI =X: POKE  V+3,MI 

150  NEXT  X 

151  R-M-10 

152  IF  SPR>R  THEN  2øøø 
16ø  POKE  21,ø: GOTO  25 
200  PRINT" (CLR) " 

2øl  FOR  X=1  TO  lø  PRINT: NEXT  x 

210  PRINT"  ORME  OVER" 

22ø  POKE  V+2 l,ø: FOR  X=1  TO  500NEXT  X 

230  GOTO  løøø 

33ø  P=P+lø 

34ø  FUEL=FUEL+1 

345  IF  FUEL=lø  THEN  6øøø 

350  EX=EX+1 : IF  EX=2ø  THEN  GOSUB  10000 

36ø  GOTO  1 

løøø  PRINT" (CLR)" 

lølø  IF  P>POI  THEN  GOSUB  9900 

lø2ø  PRINT"  / - 


IGET  RERDVI" 

i. - i* 


TODRV'S  HIGHEST 


PERFORMED  BV  " ; 


6350  PRINT"  BONUS  lø  X";L 

6360  B0=L*10:p=P+B0:F0R  X=1  TO  løøø 
: NEXT  X 

6370  GOTO  7øøø 

64øø  POKE  2040, 15  GOSUB  97øø 
:  ‘  POKE  V+21, ø: PRINT" (CLR)" 

FOR  X=1  TO  lø : PRINT: NEXT  x 
64øl  FOR  X=1  TO  5øø  NEXT  X: GOSUB  9740 
POKE  2040,  lPPOKE  2042,  14 
641ø  PRINT"  SORRV  NO  BONU 

S" 

6420  L=L-l:IF  L=-l  THEN  200 
6430  FOR  X=1  TO  løøø  NEXT  X:GOTO  7øøø 
7øøø  POKE  V+2 1,5: POKE  V+ 1,225 
: FUEL=0  : GOTO  1 

9000  POKE  V+16, ø: POKE  V+21 , 5 : SPR=25ø 
9øøl  SPR=25ø : RETURN 
95øø  FOR  X=ø  TO  62  RERD  R 
:POKE  704+X, fl : NEXT  X 
9501  POKE  2040, 1 1 : POKE  2042,14 
: V=53248 : POKE  V+16, 1 

9505  POKE  V+ 1,225  POKE  53281,0 
POKE  5328ø,ø 

9506  FOR  X=ø  TO  62 : RERD  B 
POKE  832+X, E : NEXT  X 

9507  FOR  X=ø  TO  62: RERD  C 
POKE  396+X,C :NEXT  X 

9508  FOR  X=0  TO  62  RERD  D 
POKE  960+X, D ; NEXT  X 

9509  POKE  V+39, 1 : POKE  V+40, 7 
: POKE  V+41,2 

9510  EX=ø:  FUEL=ø : RETURN 
9515  REM 

952ø  DRTR  ø,24,ø,ø,6ø,ø,ø,121,ø,ø, 
255,0,0,255,0,0,255,0,0,60,8,0,24, 
ø,ø,24,ø 

953ø  DRTR  0,60,0,0,60,0,16,60,8,16, 
6ø,8, 16,60,8, 16,255,8, 19,255,200, 
31,6ø,248 

9540  DRTR  28, 6ø, 56, 16, 6ø, 8, 16, 60, 3, ø, 
24,0 
9545  REM 

9550  DRTR  0,  0,  ø,  ø,  ø,  0,  ø,  ø,  0,  ø,  ø,  ø,  ø, 

0,0, 0,0, ØJØ,  0,0, 0,0, 0,0, 0,0, 0,0,0, 
0.10,0 

9560  DRTR  0,24,0,0,24,0,0,24,0,0,24, 
0,0,24,0,0,24,0,0,24,0,0,24,0,0, 
24,0,0,24,0 
9570  REM 

9580  DRTR  ø, 126, ø, ø, 255, ø, 1 , 255, 128, 

1 , 153, 128, 1,153, 128, 1 , 255, 128,3, 
255, 192 

9590  DRTR  7,255,224,15,255,240,47, 

255. 248. 255. 255. 255.255.255. 255, 
47,255,248, 15 

96øø  DRTR  255,240,7,255,224,3,255, 
192,1,255, 128,ø, 126 ,ø, ø, 36, ø, 0, 
231,0 
9610  REM 

9620  DRTR  2,4,128,4,0,255,6,32,4,6,2, 
6,31,60,24,24,6,7,3,8,192,2,4,5,0, 

ø ,  ø ,  ø ,  ø ,  ø 

9630  DRTR  2,4,6,7,7,7,7,3,24,3,24, 

192.3.255, ø,0,255,255,255,ø,ø,ø,ø, 
ø,  ø,  ø,  0,  ø,  ø,  ø 

9640  DRTR  0,0,0,0,0,0 

97øø  REM*#*******#*##LVD**#H«Mi**#*## 

9701  VV=54296 : WV=54276 : RV=54277 
: HV=54273 : LV=54272 
9710  FOR  X=21  TO  1  STEP-1 : POKE  VV,X 
POKE  WV, 129  POKE  AV, 15: POKE  HV,4ø 
POKE  LV, 200  NEXT  X 
9720  RETURN 
9730  RETURN 

974ø  POKE  RV,ø:POKE  WV,ø 
9750  RETURN 
99øø  REM 

9910  PRIHT"ENTER  VOUR  INITIALS . 

M  • 

9920  “iNPUT  NR* 

9930  POI=P 

994ø  PRINT" (CLR) ” :  RETURN 

løøøø  PRINT" (CLR)": POKE  v+21,ø 
løølø  FOR  X=1  TO  lø  PRINT  NEXT  X 
løø2ø  PRINT"  GRERT I " 

10030  PRINT" 

10040  PRINT"  VOU 'VE  GOT  ONE  BO 

NUS  SHIP!" 

Iøø5ø  L=L+1  : EX=ø : FOR  X=1  TO  løøø 
: NEXT  X ; POKE  V+2 1,5: GOTO  1 


i-i? 


ifåfit  31 


Morse-træner 


■  Til  alle  folk  der  trænger  til 
lidt  øvelse  i  morsealfabetet,  se 
her.  Denne  lille  program¬ 
stump  til  en  standard  VIC-20 
morser  et  ord,  som  si  skal 
skrives  ned.  Programmet  ri¬ 
der  over  et  begrænset  ordfor¬ 
råd,  men  ændringer  i  detail¬ 
lerne  giver  det  nye  mulighe¬ 
der.  □ 


lø  REM  < C  > THOMftS  K. 

2ø  REM  MORSER 
35  P0KE36878,  15 

4ø  PR  I  NT "  3l(**#**m********M4l*M#  MORSE  RLFRBETET.  *♦*#*♦*#»:♦***♦*#*#!»!****  " 

5ø  FORU= 1 T029 ■ RERDV ■ NEXTU 

60  V= I NT < RNH < 1 > »44  >  + 1 ■ FORU= 1 TOV ■ RERDfi* : NEXT : RESTORE 
7ø  FORR=  1 T OLEN  <  fi$> 

80  FORB=  1  TORSO  <  M !  P*  <  fl*  .  R  .  1  >  -64  RERPBT  NEXT 
9ø  FORC=  1  TOLEN Et  > 
løø  P0KE36876, 128 

1 1  ø  FORD®  1  TQVflL <  M  T  D*  <  Bf  .  f: .  1  >  >  *  1  øø :  RE STORE  :  NEXTU :  P0KE36S76  ,  0  :  FORT®  1  T05ø :  NEXTT ,  C 
1 20  FORR- 1 T 03øø = NEXTR , R 
13ø  PRTNT"MBHVRB  VRR  ORDET" 

140  INPUTBt 

150  I  FBf =RT THENPR I  NT  "  MW.7R  PET  VRR  "Rf  ■  FORU®  1T03000  '  NEXT  :  RUN 
1 6ø  PR  I  NT  "  NEJ  ,  DET  VRR  "  R  t  F0RU=  1  T03øøø :  NEXT  ■  RI  IN 

3øø  BRTR14..  4111 ,41  41 , 41 1  ..  1  ,  1 141 , 441 , 1 1 1 1 , 1 1  . ,  1444,414,  1411,44,41,444,  1441,4414,  14 
1,111,4 

3 1 0  DRTR  114,1114,144,4114,4144,4411,1414,4441,1441.4 ,  HUS  ■  HRVE ,  SKOV ,  FERSKEN ,  SRFT ,  H 
UND 

32ø  DR  T  REJERNS  VN ,  COMF'l  IT  ER  .  TE ,  C0MM0D0RE ,  SKRB ,  BORD ,  STOL  ,  TELEFON ,  SKUFFE ,  SENO ,  V I  NDUE 

,  KNIV 

33ø  DRTRKVS ,  SOS ,  PhD  I O ,  DRNMRPK ,  S  VER  I GE ,  IJSR ,  BLVflNT ,  D I LLFDF ,  REOL ,  Ri  ITOMRT ,  PENGE ,  MRPP 
E, HVIDE 


32  Øf* 


Selv  om  du  ikke  har  en  Lamb- 
da,  kan  du  faktisk  godt  bruge 
dette  program.  Det  giver  dig 
mulighed  tor  at  td  de  eksakte 
mål  for  den  rette  antenne, 
uanset  om  det  er  27,  144  eller 
428  MHz. 


Programmet  rummer  kanal^ 
tabeller,  så  du  ikke  behøver 
at  kende  frekvensen  på  de 
mest  almindelige  TV-kanaler . 
Programmet  er  meget  effek¬ 
tivt.  Gunnar  Carlsen 


REM  ..GUNNAR  CARLSEN. 1985. 

REM  . . KANAL-ANTENNER.  1985. 
b  PR.INT  "PROGRAMMET  FYLDER  "!C 
PEEK  16400+256*PEEK  16401 1-17301  i “ 
BYTES" 

10  PRINT  AT  5,  5!  "HER  KAN  DU  BYGG 
E  DIN  EGEN" i  AT  7,  5i "KANAL  ANTENNE 

20  PRINT  AT  9. 5! "DEN  PASSER  KUN 
TIL  DEN "i AT  1 1. 5! " PAAGAELDENE  KAN 
AL.  " 

30  PRINT  AT  13. 51 “DEN  AFSAETTER 
ALLE"! AT  15.  5i"MAAL  I  CENTIMETER. 

40  PAUSE  900 
50  CLS 

100  PRINT  "VAELG  ANTENNE  TIL  DEN 
PAAGAELDENDE  KANAL" 

105  PRINT 

110  PRINT  "INPUT  KANAL  NUMMER" 

115  PRINT 

120  PRINT  "TV  KANAL  2-11" 

130  PRINT  "TV  KANAL  21-60" 

140  PRINT  "ELLER  FM  88-108“ 

145  PRINT  "ANDRE  FREK.  1" 


150  INPUT  A 

160  IF  All  AND  A<5  THEN  LET  B=A*7  + 

35 

170  IF  Al  4  AND  A<12  THEN  LET  B=A*7 
+  141 

180  IF  Al 20  AND  A<61  THEN  LET  B=A* 
8+304 

190  IF  Al 87  AND  A<109  THEN  LET  B-A 
195  IF  A  <2  OR  Al  11  AND  A<21  OR  Al  60 
AND  A<88  OR  Al  108 ■ THEN  GOTO  500 
200C=30000/B 
210  CLS 

220  PRINT  AT  0, 01 "MAALENE  ER  I  CE 
NTIMETER.  “ 

225  PRINT  AT  0.  251  "  (K.  "  1 A 1 "  1  " 

230  PRINT  AT  1, 0 1  "REFLEKTOR  -  “I 
INT  <C*0.  51*10)/10iTAB  201" - 


310  PRINT  AT  9,  Ot "BOMLAENGDE  » 
INT  <C*0.37*10}/101TAB  25l“I" 
320  PRINT  AT  10,  0!  "AFSTAND 
1INT  <C*0.  18*10)/10iTAB  251  "I" 
330  PRINT  AT  11, 25! "I" 

340  PRINT  AT  12, 01 "2.  DIREKTOR 
1INT  (C*0. 44*10)  / 10  i  TAB  211" - 


240  PRINT  AT  2, 25! "I" 

250  PRINT  AT  3,  01 "AFSTAND 
INT  (C*0.  197*10)/101TAB  25i"r' 
260  PRINT  AT  4.  25!  "I" 

270  PRINT  AT  5,0!  "DIPOLEN 
INT  (C*0.47*10)/10lTAB  20!" - 

280  PRINT  AT  6.  25!  "I" 

290  PRINT  AT  7, 01 "AFSTAND 
INT  (C*0.  U5*10)/10iTAB  25!  “I" 
390  PRINT  AT  8, 0!"1. DIREKTOR 
INT  (C*0.  45*10)  / 10 1  TAB  21!" - 


350  PRINT  AT  13,  Oi  "AFSTAND 
!  INT  (C*0. 13*10)/10iTAB  25; "1“ 
360  PRINT  AT  14,  Oi  "3.  DI  REKTOR 
!  INT  (C*0.  44*10)  / 10 !TAB  21!" - 

370  PRINT  AT  15,  Oi "BOMLAENGDE 
iINT  (C*0. 67*10)  / 10  i  TAB  25!"I" 
380  PRINT  AT  16, O! "AFSTAND 
!  INT  CC*0. 16*10)/10iTAB  25! "I" 
390  PRINT  AT  17,  0!  "4.  DIREKTOR 
iINT  (C*0.  44*10)  / 10  !TAB  21!" - 

___N 

400  PRINT  AT  18,  25! "I" 

410  PRINT  AT  19,  0! "AFSTAND 
iINT  (C*0. 15*10) /lOiTAB  25!  “I" 
420  PRINT  AT  20,  O!  “5.  DIRDKTOR 
IINT  (C*0. 44*10) /10 !TAB  21!" - 


430  PRINT  AT  21, O! "BOMLAENGDE  =  “ 
! INT  <C*0. 97*10) /10 iTAB  25! "I" 

450  PAUSE  65000 

44G  CLS 

470  GOTO  100 

480  SAVE  "ANTENNEr" 

490  RUN 
500  CLS 

510  PRINT  ,  , , ,  "SKAL  DU  BRUDE  EN 
ANDEN  FREKVENS  C  J/N) " i ,,,,,,,,  ! 

520  IF  INKEY*=" J"  THEN  GOTO  550 
530  IF  INKEY*="N"  THEN  GOTO  50 
54©  GOTO  520 

550  PRINT  "INKOD  I  MHZ.  CKHZ/100 

O).  " 

560  INPUT  B 
570C=30000/B 
580  CLS 

590  PRINT  Bi"  MHZ.  " ! INT  (C*10)/l 
O ! “  CENTIMETER  =  1  BL." 

600  GOTO  230 


3 


m' 


■  Du  skal  forhindre  de  fjendt¬ 
lige  styrker  i  at  sende  deres 
tanks  over  dine  linier.  Dette 
forhindrer  du  ved  at  bruge 
din  mobile  kanon  nederst  på 
skærmen.  Points  bliver  regnet 
ud  efter,  hvor  hurtigt  du  ram¬ 
mer  den,  og  hvad  farve  tan¬ 
ken  har.  Du  styrer  tanken 
med  1  for  venstre,  2  for  højre 
og  0  for  at  skyde.  God  fornøj¬ 
else.  □  Michael  Mondrop___ ^ 


HCT 


i« 


21  ;§-SsS  -o-«, 

126,£sS,U,0,U,U,  112, 

4.0  ,<J,112,0,«J  ,J,1  ,  «->  , ' J  /  7 , 15 , 0  ,  O,  OB 
2 , 255  ,  O  ,  O  ,  U  ,  J  ,  0  ,  U ,  U  ,  254- ,^1,0 , 2|£  , 

24.0, 24-,  55, 107, 84-,  20, 11, 7,0,  a,2wS 

,24,  ieé, U, 24 ,255,0,24,236,214, 42 
.  4-0  j  208 . 224  /  6  j  »J  /  24  ,  \J  ,  J  /  \S j>  J  j  /  0 
”6  BOEDER  0:  PRPER  0:  INK  i:  C. 
LS 

80  GO  SUS  900 

100  FOR  1=4  TO  16  STFP_fc _ PRJNT 

g  Nm" 

120  LET  X=29:  LET  LI=5:  LET  SG  = 

Ø130  LET  R=0:  LET  B=0:  LET  P=0: 
LET  0=0  _ 

lil  PRINT®OT  ø,ø;  INK  S; "LIVES- 

210  LETNX=5T <INKEY*  =  '2"  RND  X<2 
9) - <INKEY$="1"  RND  X>0)  .  „ 

220  PRINT  RT  21 ,X;  INK  »Ai 

260  IF  INKEVf="0"  THEN  PflINT  AT 
R,B;  RND  A./4  =  INT  <A/4)  RND  A 

<>é;*‘  “  RND  (fl/4-OlNT 

=0):  LET  R=20.  LET  B=X+1:  PRINT 

^Søø'lfr  Å=0  THEN  GO  TO  40« 

320  IF  R/'4-  =  INT  (R/4-)  RND  fi<>20 
THEN  LET  R*="“"  .  „  „  .. 

330  PRINT  RT  A,B;R*:  LET  R*= 

34-0  LET  R=R-1  _ 

350  IF  R=P  RND  B  >  =Q  RND  B<=©+3 
THEN  GO  TO  800  _  „  ...  „ 

360  PRINT  RT  R , B ;  INK  7;  "I 
370  IF  R=0  THEN  PRINT  RT  fl,B;" 

«• 

410  IF  0=29  THEN  GO  TO  850 
420  PRINT  RT  P-l,©;“  ";RT  P ,  G> 

.  ti  I* 

'430  LET  0=0  +  1  „ 

440  PRINT  RT  P-1,0;  INK  COL;  Æ 


r  ;  RT  p, o;  “•teBr" 

4.90  GO  TO  200 

700  LET  P=4#(INT  <RNØ*4) +1) — 1 : 
-LET  0=0 

710  LET  COfr-B-'/INT  fP.^4+1^1  , 

730  PRINT  RT  P-1,0;  INK  COL;  r 
;  RT  P  ,  0 : 


735  PAUSE  5 

740  PRINT  RT  P-1,0;  INK  COL;  Jfe* 
“ ;  RT  P ,  ø;  "38*" 

745  PAUSE  5 

790  RETURN  _ 

800  FOR  1=20  TO  50  STEP  2.  BEEP 
.015,1:  NEXT  I 
805  LET  3C=SC+100* fCOL-3.i 
810  PRINT  RT  P-1,ØL"  **4® 

“ ;  RT  P  +  l,  O;  RND  0< 

820  LET  R=0 
845  GO  TO  150 

850  PRINT  AT^P-l/P;  INK  COL;" 
lil  PRINT  RT  P-1,0;  INK  COL;" 
860  PRINT  RT  P-1,31; "  " ; RT  P,31 

•  M  •• 

' 865  FOR  1=20  TO  -10  STEP  -2:  BE 
EP  .015,1:  NEXT  I 
870  LET  L I =L I — 1 :  IF  LI=0  THEM  G 
O  TO  80 
895  GO  TO  150 

910  INK  2:  CLS  ______  ^ 

920  PRINT  RT  0,6  HT  1,8 


RT  5 , 8 ;  ” 


1000  PRINT  RT  8,8;  INK  B;  "€>  MICM 
REL  MONDRUP" 

1010  FOR  1=20  TO  50  STEP  .4:  BEE 
P  .001,1:  NEXT  I  _ 

1030  IF  SC>HS  THEN  LET  HS=SC 
1040  IF  SOØ  THEN  PRINT  PAPER  5; 

INK  0; RT  11,0; "YOUR  SCORE  “;sc; 
TRB  17; "BEST  SCORE  ";  HS 
1050  FOR  1=0  TO  3:  PRINT  INK  1+4 
JAT  14,1*7+4 ;  "  Jt“,RT  15,1*7  +  4," 
NEXT  I 

1060  PRINT  PRPER  6;  INK  0;AT  17, 
4; " 100"; TRS  il; "200"; TH8  18; "300 
" ; TRB  25;  "400" 

1100  PRINT  RT  20,0;  INK  7;"1.... 
LEFT  2.... RIGHT  ©..„.FIRE" 

1140  PRINT  »0; RT  1,5;  INK  4;  FLR 
SH  1;  "PRESS  AHV  KEY  TO  PLAY" 

1160  IF  INKEY*="“  THEN  GO  TO  116 
0 

1170  CLS 
5000  RETURN 


34  ### 


Kalaha 

computer 


PROGRAM :  KALRHA.  UNR 

1  REM  KRLRHR,MIT  FØRSTE  RIGTIGE  PROG 

RRM 

2  REM 

3  REM  ****************************** 

*** 

4  REM  ********  ***** 

*** 

3  REM  ********  FINN  ANDERSEN  ***** 

*•* 

6  REM  ********  ***** 

*** 

7  REM  ****************************** 

*** 

8  REM 

9  POKE  33280, 2  POKE  53281,2 

:  PRINT"  (CLR)" 

10  M 1 =6 : M2=6 : M3=6  =  M4=6 : M3“6 : M6=6  =  MK=0 
20  Dl =6 : D2-6 : D3=6 : D4=6 : D3=6 : D6=6 : DK«0 
30  Q=0 

499  REM  **************************** 
*** 

500  GOTO  6000 

510  PRINT: PRINT" CHOME, 

GRRR3)  , - .  , - s  , - ,  , - , 

520  PRINT"  I  I  I  II  II  I 

I  I  I  i"; 

530  PRINT"  KCRSR  HØJRE3)  KCRSR  HØJRE 
2)  KCRSR  HØJRE3)  KCRSR  HØJRE2)  ICC 
RSR  HØJRE3)  KCRSR  HØJRE2)  KCRSR  H 
ØJRE3)  KCRSR  HØJRE2)  KCRSR  HØJRE3 
)  KCRSR  HØJRE2)  KCRSR  HØJRE3)  I"; 
540  PRINT"  I  II  II  II  I 

I  II  r; 

550  PRINT”  —>  ' - '  ' - >  v - ' 

560  PRINT"  Ml  M  2  M  3  M  4 
M  5  M  6"  PRINT: PRINT 
570  PRINT"  , - > 


580  PRINT" I  I 

I  i"; 

590  PRINT”  KCRSR  HØJREIØ)  KCRSR  Hø  JR 
E16)  KCRSR  HØJREIØ)  I"; 

600  PRINT" I  I 

I  l"; 

610  PRINT"  1 - ' 

v - 

620  PRINT"  M  K 

D  K"  PRINT  PRINT 

630  PRINT"  , - s  , - s  , - s  , - \ 

640  PRINT"  I  I  l'  I  I  II  I 
I  II  r; 

630  PRINT"  KCRSR  HØJRE3)  KCRSR  HØJRE 
2)  KCRSR  HØJRE3)  KCRSR  HØJRE2)  KC 
RSR  HØJRE3)  KCRSR  HØJRE2)  KCRSR  H 
ØJRE3)  KCRSR  HØJRE2)  KCRSR  HØJRE3 
)  KCRSR  HØJRE2)  KCRSR  HØJRE3)  I"; 

660  PRINT" I  I  I  I  I  I  I  I 

I  II  I" ; 

670  PRINT"  ' - '  ' - '  1 - *  " - ' 

680  PRINT"  D  6  D3  D4  D3 
D  2  Dl" 

690  PR I NT "< HOME , CRSR  HØJRE, 

CRSR  NED2)"M1”(CRSR  VENSTRE, 
SPRCE)" 

700  PRINT" (HOME, CRSR  HØJRE, 

CRSR  NED18) "D6" (CRSR  VENSTRE, 
SPRCE)" 

710  PRINT" (HOME) "PRINT  TRB(8)M2"(CR 
SR  VENSTRE, SPRCE)" 

720  PRINT" (HOME, CRSR  NED16) " 

PRINT  THB(8)D5" (CRSR  VENSTRE, 
SPACE) " 

730  PRINT” (HOME) "PRINT  TRB(15)M3”<C 
RSR  VENSTRE, SPRCE)” 

740  PRINT" (HOME, CRSR  NED16) " 

PRINT  TRB( 13)D4" (CRSR  VENSTRE, 
SPACE ) " 

750  PRINT"(HOME)":PRINT  TRB(22)M4"(C 


■  Dette  program  laver  din 
Commodore  64  om  til  en  ka- 
laha-computer.  Programmet 
tegner  kalahaplanen  pd 
skærmen,  hvorefter  du  blot 
indtaster,  hvorfra  du  tager 
»kugler«,  og  computeren  be¬ 
regner  resten.  Programmet  er 
selvforklarende  og  har  iøvrigt 
en  pæn  grafik,  med  en  ha¬ 
stighed  absolut  i  top.D 

Finn  Andersen 


RSR  VENSTRE, SPRCE)" 

760  PRINT" (HOME, CRSR  NED 16)" 

PRINT  TRB(22)D3" (CRSR  VENSTRE, 
SPRCE)" 

770  PRINT" (HOME)"  PRINT  TRB(29)M5"<C 
RSR  VENSTRE, SPRCE)" 

780  PRINT" (HOME, CRSR  NED16)" 

PRINT  TRB(29)D2" (CRSR  VENSTRE, 
SPACE) " 

790  PRINT" (HOME)"  PRINT  TRB(36)M6"(C 
RSR  VENSTRE, SPRCE)" 

800  PRINT" (HOME, CRSR  NED16)" 

PRINT  TRB(36)D1 " (CRSR  VENSTRE, 
SPACE) " 

8 1 0  PR  I  NT  "( HOME ,  CRSR  NED10)  "TRB(4)MK; 

TRB(32)DK 
820  X=X-l: RETURN 

999  REM***************************** 
*** 

3998  REM  *************************** 
*** 

3999  REM  *************************** 
*** 

5000  D6=D6+1 :GOSUB  510 
IF  X=0  THEN  RETURN 
5002  D5=D5+1 : GOSUB  310 
IF  X=0  THEN  RETURN 
5004  D4=D4+l: GOSUB  510 
:  IF  X=0  THEN  RETURN 
5006  D3*D3+1 : GOSUB  510 
: IF  x*0  THEN  RETURN 
3008  D2=D2+1  GOSUB  510 
: IF  X=0  THEN  RETURN 

5010  D1=D1+1  GOSUB  51ø 
:  IF  X*ø  THEN  RETURN 

5011  IF  Q*1  THEN  5014 

5012  DK«DK+1  GOSUB  510 
: IF  X=0  THEN  RETURN 

5014  M6=M6+1  GOSUB  510 
: IF  X=0  THEN  RETURN 
5016  M5=M5+1  GOSUB  510 


mm 
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5018  M4=M4+1 : GOSUB  510 
: IF  X=0  THEN  RETURN 


5020  M3=M3+1  GOSUB  510 
:IF  X=0  THEN  RETURN 
5022  M2=M2+1 : GOSUB  510 
IF  X-ø  THEN  RETURN 

5024  M1=M1+1 : GOSUB  510 
IF  X=0  THEN  RETURN 

5025  IF  Q=2  THEN  5000 

5026  MK=MK+1  GOSUB  510 
: IF  X=0  THEN  RETURN 

5030  GOTO  5000 

5050  REM  *************************** 
*** 

5060  REN  *************************** 

6000  IF  Q=1  THEN  GOSUB  510 
GOSUB  10000 : GOTO  7000 
6010  IF  Q=2  THEN  GOSUB  510 
: GOSUB  1 0050 : GOTO  8000 
6020  PRINT" (CLR, GRØN, RVS  ON, 

CRSR  NED8, CRSR  HØJRE3, SPHCE, 

CRSR  HØ JRE5 , SPHCE 4 , CRSR  HØJRE2, 
SPHCE , CRSR  HØJRES , SPHCE4 , 

CRSR  HØJRE2, SPHCE, CRSR  HØJRE2, 
SPHCE , CRSR  Hø JRE2 , SPRCE4 ) " 

6030  PR I NT " < RVS  ON, CRSR  HØ JRE3, SPHCE, 
CRSR  HØJRE2, SPHCE, CRSR  HØJRE2, 
SPHCE, CRSR  HØJRE2, SPHCE, 

CRSR  HØJRE2, SPHCE, CRSR  HØJRES, 
SPHCE , CRSR  HØ JRE2 , SPHCE , 

CRSR  HØJRE2, SPHCE, CRSR  HØJRE2, 
SPHCE , CRSR  HØ JRE2 , SPHCE , 

CRSR  Hø JRE2, SPHCE)" 

6040  PR I NT "< RVS  ON, CRSR  Hø JRE3, SPHCE, 
CRSR  HØJRE, SPHCE, CRSR  HØJRES , 
SPHCE, CRSR  Hø JRE2, SPHCE, 

CRSR  HØJRE2, SPHCE, CRSR  HØJRES, 
SPHCE , CRSR  HØ JRE2 , SPHCE , 

CRSR  HØJRE2, SPHCE, CRSR  HØJRE2, 
SPHCE , CRSR  Hø JRE2 , SPHCE , 

CRSR  HØ JRE2, SPHCE)" 

6050  PR I NT “(RVS  ON, CRSR  HØJRE3, 

SPHCE2 , CRSR  HØ JRE4 , SPHCE , 

CRSR  HØJRE2, SPHCE, CRSR  HØJRE2, 
SPHCE , CRSR  HØJRES , SPHCE , 

CRSR  HØJRE2, SPHCE, CRSR  HØJRE2, 
SPHCE4 , CRSR  HØ JRE2 , SPHCE , 

CRSR  HØ JRE2, SPACE)" 

6060  PR I NT “(RVS  ON, CRSR  HØJRE3, 
SPHCE2, CRSR  HØJRE4, SPHCE4, 

CRSR  HØJRE2, SPHCE, CRSR  HØJRES, 
SPHCE4 , CRSR  HØ JRE2 , SPHCE , 

CRSR  HØJRE2, SPHCE, CRSR  HØJRE2, 
SPHCE4 ) " 

6070  PR I NT "(RVS  ON, CRSR  Hø JRE3, SPHCE, 
CRSR  HØJRE, SPHCE, CRSR  HØJRE3 , 
SPHCE, CRSR  HØJRE2, SPHCE, 

CRSR  HØJRE2, SPHCE, CRSR  HØJRES, 
SPHCE, CRSR  HØ JRE2, SPHCE, 

CRSR  HØJRE2, SPHCE, CRSR  HØJRE2, 
SPHCE , CRSR  HØ JRE2 , SPHCE , 

CRSR  HØ JRE2, SPHCE)" 

6080  PRINT" (RVS  ON, CRSR  HØ JRE3, SPHCE, 
CRSR  HØJRE2, SPHCE, CRSR  HØJRE2 , 
SPHCE , CRSR  HØ JRE2 , SPHCE , 

CRSR  Hø JRE2 , SPHCE4 , CRSR  HØJRE2, 
SPHCE, CRSR  HØ JRE2, SPHCE, 
CRSR^HøJRE2^|PHC|, ^pgR^HøJRE2 , 

CRSR  HØ JRE2 , SPHCE ) " : PR I NT : PR I NT 
: PRINT  PRINT 

6090  INPUT"  (HVID,  SPHCE3) ØNSKES  SPILL 
E  REGLER  (J/N)  ",St 
6100  IF  S*="N"THEN  6470 
6110  IF  S*<>"J"THEN  6000 
6150  PR I NT " ( CLR , GUL , SPHCE 1 4 ) SP I LLERE 
GLER“ 

6160  PRINT” (BLHH,SPHCE14) 

6170  PRINT ; PRINT“(HVID, 


SPRCE2)DU  SKAL  PRØVE  HT  FHR  FLERE 
KUGLER  I  “ ; 

6180  PRINT"  DIN  KHLHHH  (D  K)  END  JE 
G  FRAR  I  MIN.  " 

6190  PRINT"  DE  FELTER  DU  KRN  THGE  K 
UGLER  FRH  ER  "J 

6200  PRINT"  MHERKET  MED  'D'  OG  ET  T 
HL.  NAHR  JEG 

6210  PRINT"  SPØRGER  OM  DIT  NflESTE  T 
RREK  SKAL  DU 

6220  PRINT"  KUN  INDTASTE  TALLET  PHH 
DET  FHELT  DU  "; 

6230  PRINT"  ØNSKER  HT  THGE  FRH, 

SHH  ORDNER  JEG 
6240  PRINT"  RESTEN. 

6250  PRINT"  NHHR  JEG  TAGER  KUGLER  O 
P  FRH  DET  FELT 
6260  PRINT"  DU  ANVISER  MIG, 

SHH  GHHR  JEG  MOD  URET 
6270  PRINT"  OG  LHEGGER  EN  KUGLE  I  H 
VERT  HF  DE  EF- 

6280  PRINT"  TERFØLGENDE  RUM, 

INDTIL  HLLE  KUGLERNE  "j 
6290  PRINT"  JEG  TOG  OP  ER  LAGT  I  NV 
E  RUM. 

M 

6300  PRINT"  HVIS  DEN  SIDSTE  KUGLE  B 
LIVER  LAGT  I  ■; 

6310  PRINT"  KHLHHHEN, 

HAR  MHN  LOV  TIL  HT  THGE  ET  "i 
6320  PRINT"  NVT  SHET  KUGLER  OP.  (SH 
R  SPØRGER  JEG  *J 
6330  PRINT"  IGEN)." 

6340  PRINT" (GUL, SPHCE 14, 

RVS  ON) TRYK  EN  TAST (RVS  OFF)" 

6350  GET  W$ : IF  W$=" "THEN  6350 
6360  PRINT" (CLR, CRSR  OP)" 

PRINT" (HVID, SPRCE2) HVIS  DEN  SIDS 
TE  KUGLE  BLIVER  LAGT  I 
6370  PRINT"  DET  RUM  HVOR  JEG  TOG  BU 
NKEN  OP,  FHHR  "; 

6380  PRINT"  DU  TILDELT  KUGLEN  PLUS 
HLLE  DE  KUGLER  “i 

6390  PRINT"  DER  FINDES  I  MIT  FELT  L 
IGE  OVERFOR.  DE"; 

6400  PRINT"  BLIVER  HLLE  LAGT  I  DIN 
KRLRHR" 

6470  INPUT" (SORT, CRSR  NED4, 

SPHCE2)HVEM  SKHL  FORRESTEN  BEGYND 
E  (D/M)  ";hs 

6480  IF  H$= "D“THEN  0*2 : PRINT" (CLR) " 

: GOTO  6000 

6490  IF  H*="M"THEN  Q=1 : PRINT" (CLR) " 

: GOTO  6000 
6495  GOTO  6360 

6998  REM  *#*#***#****♦#**#*##*##*##* 
*** 

6999  REM  M#*##**#*******###****i#*# 
*** 

7000  IF  Ml-13  THEN  X=13-Ml=ø 

: GOSUB  5026  =  MK=MK+M1+D6 : M1=0 : D6=0 
: GOSUB  510  Q=2: GOTO  6000 
7002  IF  Ml=l  THEN  X=1 : Ml=ø : GOSUB  5026 
Q=1 : GOTO  6000 

7004  IF  M2=13  THEN  X=13J12=ø 

: GOSUB  5024 : MK=MK+M2+D5 : M2=ø : D5=0 
: GOSUB  510  Q=2: GOTO  6000 
7006  IF  M2=2  THEN  X=2 : M2=0 : GOSUB  5024 
: Q* 1 : GOTO  6000 

7008  IF  M3=13  THEN  X=13:M3=ø 

: GOSUB  5022 : MK=MK+M3+D4 : M3=0 : D4=ø 
: GOSUB  510 : Q=2 : GOTO  6000 
7010  IF  M3=3  THEN  X=3 ■ M3=0  GOSUB  5022 
Q=1  GOTO  6000 

7012  IF  M4=13  THEN  X=13:M4=0 

: GOSUB  5020 : MK=MK+M4+D3  =  M4=0 : D3=0 
: GOSUB  510 :Q=2: GOTO  6000 
7014  IF  M4=4  THEN  X=4 : M4=ø : GOSUB  5020 
Q=1 :GOTO  6000 

7016  IF  M5=13  THEN  X=13:M5=0 

: GOSUB  5018: MK=MK+M5+D2 : M5=ø : D2=0 
GOSUB  510  Q=2: GOTO  6000 
7018  IF  M5=5  THEN  X=5 : M5=0 : GOSUB  5018 
: Q=1 : GOTO  6000 

7020  IF  Mé=13  THEN  X=13:M6=ø 

: GOSUB  50 1 6 : MK=MK+M6+D 1 : M6=0 : D 1 =0 
GOSUB  510  0=2  GOTO  6000 
7022  IF  M6=6  THEN  X=6 : M6=0  GOSUB  5016 
: Q=1 : GOTO  6000 

7024  IF  Ml=14  THEN  X=14M1=0 
GOSUB  5026  0=1  GOTO  6000 
7026  IF  M2=15  THEN  X=15M2=ø 
GOSUB  5024: 0=1 : GOTO  6000 
7028  IF  M3=16  THEN  X=16:M3=0 
: GOSUB  5022  Q=l: GOTO  6000 
7030  IF  M4=17  THEN  X=17M4=ø 
GOSUB  5020  0=1  GOTO  6000 
7032  IF  M5=18  THEN  X=18M5=0 
: GOSUB  5018 : 0=1 : GOTO  6000 
7034  IF  M6=19  THEN  X=19M6=0 
: GOSUB  5016 : 0=1 : GOTO  6000 


7036  IF  Ml =27  THEN  X=27M1=0 
GOSUB  5026 : 0=1 : GOTO  6000 
7038  IF  M2=28  THEN  X=28:M2=0 
GOSUB  5024 : 0= 1 : GOTO  6000 
7040  IF  M3=29  THEN  X=29 : M3=0 
GOSUB  5022:0=1  GOTO  6000 
7042  IF  M4=3ø  THEN  X=30:M4=0 
: GOSUB  5020 : Q= 1 : GOTO  6000 
7044  IF  M5=31  THEN  X=31M5=ø 
GOSUB  5018 : Q=1 : GOTO  6000 
7046  IF  M6=32  THEN  X=32:M6=0 
GOSUB  5016:0=1 : GOTO  6000 
7048  IF  D6=13  THEN  X=M  1=111=0 
GOSUB  5026 =0=2: GOTO  6000 
7050  IF  D5=13  THEN  X=M2:M2=0 
: GOSUB  5024= 0=2: GOTO  6000 
7052  IF  D4=13  THEN  X=M3=M3=0 
GOSUB  5022 = 0=2 : GOTO  6000 
7054  IF  D3=13  THEN  X=M4:M4=ø 
GOSUB  5020 : 0=2 : GOTO  6000 
7056  IF  D2=13  THEN  X=M5:M5=0 
GOSUB  5018= 0=2  GOTO  6000 
7058  IF  Bl  =  13  THEN  X=M6  =  M6=0 
: GOSUB  5016: 0=2  GOTO  6000 
7060  IF  Ml>14  THEN  X=M1M1=0 
GOSUB  5026  0=2  GOTO  6000 
7062  IF  M2>15  THEN  X=M2M2=ø 
GOSUB  5024 : 0=2 : GOTO  6000 
7064  IF  M3>16  THEN  X=M3:M3=0 
GOSUB  5022  0=2  GOTO  6000 
7066  IF  M4>17  THEN  X=M4M4=ø 
GOSUB  5020 : 0=2 : GOTO  6000 
7068  IF  M5>18  THEN  X=M5:M5=0 
GOSUB  5018 :Q=2: GOTO  6000 
7070  IF  M6> 1 9  THEN  X=M6:M6=0 
: GOSUB  5016: 0=2: GOTO  6000 
7072  IF  M6C10  HND  M6>0  THEN  X=M6:M6=0 
GOSUB  5016  Q=2: GOTO  6000 
7074  IF  M5C10  AND  M5>0  THEN  X=M5=M5=0 
: GOSUB  5018  0=2  GOTO  6000 
7076  IF  M4C10  AND  M4>0  THEN  X=M4  M4=0 
: GOSUB  5020 : Q=2 : GOTO  6000 
7078  IF  M3C10  HND  M3>0  THEN  X=M3:M3=0 
GOSUB  5022 : 0=2 = GOTO  6000 
7080  IF  M2C10  HND  M2>0  THEN  X=M2M2=0 
: GOSUB  5024 : 0=2 : GOTO  6000 
7032  IF  MK10  HND  M1>0  THEN  X=M1:M1=0 
: GOSUB  5026 : Q=2 : GOTO  6000 
7084  IF  Ml>13  THEN  X=M1M1=0 
: GOSUB  5026: 0=2= GOTO  6000 
7086  IF  M2>13  THEN  X=M2:M2=0 
: GOSUB  5024 : 0=2 : GOTO  6000 
7088  IF  M3>13  THEN  X=M3:M3=ø 
: GOSUB  5022 : 0=2 : GOTO  6000 
7090  IF  M4>13  THEN  X=M4:M4=0 
GOSUB  5020= 0=2: GOTO  6000 
7092  IF  M5>13  THEN  X=M5:M5=ø 
: GOSUB  5018' 0=2: GOTO  6000 
7094  IF  M6>13  THEN  X=M6M6=0 
GOSUB  5016: 0=2  GOTO  6000 
7096  IF  M1>0  THEN  X=Ml:Ml=ø 
: GOSUB  5026 : 0=2 : GOTO  6000 
7098  IF  M2>0  THEN  X=M2  M2=0 
GOSUB  5024 : 0=2 : GOTO  6000 
7100  IF  M3>0  THEN  X=M3M3=0 
GOSUB  5022 : 0=2 : GOTO  6øøø 
7102  IF  M4>0  THEN  X=M4  M4=ø 
GOSUB  5020 = 0=2 : GOTO  6000 
7104  IF  M5>0  THEN  X=M5M5=0 
GOSUB  5018  Q=2: GOTO  6000 
7106  IF  M6>0  THEN  X=M6:M6=ø 
: GOSUB  5016  0=2  GOTO  6000 
7150  GOTO  10500 

8000  IF  D1=0  HND  D2=ø  AND  D3=0  HND  D 
4=0  HND  D5=0  HND  D6=0  THEN  10500 

8001  IF  P$=" 1 "HND  D 1 = 1  OR  Dl=14  OR  D 
1=27  THEN  X=D1  Dl=ø: GOSUB  5012:Q=2 

GOTO  6000 

8002  IF  P$=" 1 "AND  Dl=13  THEN  X=D1 
D1=0: GOSUB  5012 : DK=DK+M6+1 : D1=0 

: M6=0: 0=1 : GOTO  6000 
8004  IF  P$=" 1 "HND  D1>0  THEN  X=D1:D1=0 
GOSUB  5012  0=1  GOTO  6000 
8006  IF  P$=“2"HND  D2=2  OR  D2=15  OR  D 
2=28  THEN  X=D2 : D2=0 : GOSUB  5010 :Q=2 
: GOTO  6000 

8008  IF  P$=  "2" HND  D2=13  THEN  X=D2 
: D2=0 : GOSUB  5010  DK=DK+M5+1 : D2=0 
M5=ØQ=1  GOTO  6000 

8010  IF  P*="2"RND  D2>0  THEN  X=D2D2=0 
GOSUB  5010  0=1  GOTO  6000 
8012  IF  PJ="3"HND  D3=3  OR  D3=16  OR  D 
3=29  THEN  X=D3 :  D3=0 :  GOSUB  5008  0=2 
GOTO  6000 

3014  IF  P$="3" AND  D3=13  THEN  X=D3 
: D3=ø : GOSUB  5008 : DK=DK+M4+ 1 : D3=ø 
:M4=0: 0=1  GOTO  6000 
8016  IF  P$="3" AND  D3>0  THEN  X=D3:D3=0 
GOSUB  5008 : 0=1 : GOTO  6000 
8018  IF  p$="4" HND  D4=4  OR  D4=17  OR  D 
4=30  THEN  X=D4 : D4=ø : GOSUB  5006 ; 0=2 
: GOTO  6000 
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3020  IF  P$=  "  4 "  AND  D4=13  THEN  X=D4 
:  D4=ø :  GOSUE  5006 :  DK=DK+M3+ 1 '•  D4=0 
:  ri3=0  :  0=1  :  GOTO  6000 
3022  IF  P$=“4"AND  D4>0  THEN  X=D4  D4=0 
GOSUB  5006 : 0=1 ; GOTO  60øø 
8024  IF  P*="5"AND  D5=5  DR  Ii5=18  OR  D 
5=31  THEN  X=D5 : D5=0 : GOSUB  5004  0=2 
: GOTO  6000 

8026  IF  P*="5"AND  D5=13  THEN  X=D5 
■ D5=0 : GOSUB  5004 : DK=DK+M2+1 : D5=0 
: M2=ø :  0=1 : GOTO  6øøø 
8028  IF  P$= " 5 " RND  D5>0  THEN  X=D5D5=0 
GOSUB  5004  0=1  GOTO  6000 
8030  IF  P*="6"AND  D6=6  OR  D6=19  OR  D 
6=32  THEN  X=D6 : D6=ø : GOSUB  50020=2 
: GOTO  6000 

8032  IF  P$="6"AND  06=13  THEN  X=D6 
:  D6=ø :  GOSUB  5002DK=DK+M!+1 :D6=0 
: Ml=ø : Q=1 :  GOTO  6000 
8034  IF  P*="6"AND  D6>0  THEN  X=D6  D6=0 
:  GOSUB  5002  03=1 :  GOTO  6000 
8500  GOTO  6000 

løøøø  PR I NT "( HOME ,  SORT ,  CRSR  NED22, 
SPACE 13)DET  ER  MIN  TUR 

10002  PRINT" 

1 0006  GOSUB  510: RETURN 
10050  PRINT" C HOME. SORT, CRSR  NED22)"; 
10052  INPUT"  DET  ER  DIN  TUR  INDTAS 
T  DIT  VRLG  ";PS 

10054  PRINT" < CRSR  0P5)" 

10055  IF  PJ=" 1 "OR  P*= ”2 "OR  P$="3"0R 
PJ="4"0R  P$="5"0R  P$="6"THEN  RETU 
RN 

10070  GOTO  10050 

1 0500  DK=PK+D 1 +D2+D3+D4+D5+D6 : D 1 =0 
: D2=0 : D3=0 : D4=0 : D5=0 : D6=0 
10510  MK=MK+M 1 +M2+M3+M4+M5+M6 : Ml=ø 
:  M2=0  :  M3=0  :  M4=ø :  M5=0 :  M6=0 
10520  GOSUB  510 
10525  X=ø 

10530  X=X+1  '■  IF  X=5ø  THEN  10550 

10540  GOTO  10530 

10550  PR I NT " ( CLR ,  GUL , RVS  ON, 

CRSR  NED2-CRSR  HØJRE. SPRCE4, 

CRSR  HØJRE, SPACE4, CRSR  HØJRE, 
SPRCE4, CRSR  HØJRE, SPACE, 

CRSR  HØJRE2, SPACE, CRSR  HØJRE, 
SPACE, CRSR  HØ JRE4 , SPRCE3 , 

CRSR  HØJRE, SPHCE4, CRSR  HØJRE, 
SPACE3,CRSR  HØJRE2)"; 

10560  PRINT" (RVS  ON, CRSR  HØJRE, SPACE, 
CRSR  HØJRE2, SPACE, CRSR  HØJRE, 

SPACE , CRSR  HØ JRE4 , SPACE , 

CRSR  HØJRE4, SPACE, CRSR  HØJRE2, 
SPACE, CRSR  HØJRE, SPACE, 

CRSR  HØJRES, SPACE, CRSR  HØJRE2, 
SPACE , CRSR  HØ JRE2 , SPACE , 

CRSR  HØJRE2, SPACE, CRSR  HØJRE3) " ; 
10570  PR I NT "(RVS  ON, CRSR  HØJRE, SPACE, 
CRSR  HØJRE2, SPACE, CRSR  HØJRE, 
SPACE, CRSR  Hø JRE4, SPACE, 

CRSR  HØJRE4, SPACE, CRSR  HØJRES, 
SPACE , CRSR  Hø JRE , SPACE , 

CRSR  HØJRE5, SPACE, CRSR  HØJRE2, 
SPACE, CRSR  HØJRE2, SPACE, 

CRSR  HØJRE2, SPACE, CRSR  HØ JRE3 ) " ; 
10580  PRINT" (RVS  ON, CRSR  HØJRE, 
SPACE4, CRSR  HØJRE, SPACE3, 

CRSR  HØJRE2, SPACE4, CRSR  HØJRE, 
SPACE , CRSR  HØ JRE2 , SPACE , 

CRSR  HØJRE, SPACE, CRSR  HØJRES, 
SPACE, CRSR  Hø JRE2, SPACE, 

CRSR  HØJRE2, SPACE, CRSR  HØJRE2 , 
SPACE, CRSR  HØJRE, SPACE, 

rpcp  un  jpc  ••  • 

10590  PR I NT "(RVS  ON, CRSR  HØJRE, 
SPRCE2,CRSR  HØ JRE3, SPACE, 

CRSR  HØJRE7, SPACE, CRSR  HØJRE, 
SPACE, CRSR  HØ JRE2, SPACE, 

CRSR  HØJRE, SPACE, CRSR  HØJRES, 
SPACE, CRSR  HØ JRE2 , SPACE4 , 

CRSR  HØJRE2, SPACE, CRSR  HØJRES) "; 
10600  PR I NT "(RVS  ON, CRSR  HØJRE, SPACE, 
CRSR  HØJRE, SPACE, CRSR  Hø JRE2 , 
SPACE, CRSR  HØJRE7, SPACE, 

CRSR  HØJRE, SPACE, CRSR  HØJRE2, 
SPACE, CRSR  HØJRE, SPACE, 

CRSR  HØJRE5, SPACE, CRSR  HØJRE2, 
SPACE , CRSR  HØ JRE2 , SPACE , 

CRSR  HØJRE2, SPACE, CRSR  HØJRE3)"; 
10610  PRINT" (RVS  ON, CRSR  HØJRE, SPACE, 
CRSR  HØJRE2, SPACE, CRSR  HØJRE, 
SPACE4, CRSR  HØJRE, SPACE4, 

CRSR  HØJRE, SPACE4, CRSR  HØJRE, 
SPACE4, CRSR  HØJRE2, SPACE, 

CRSR  HØJRE2,  SPACE, CRSR  HØJRE2, 
SPACE , CRSR  HØJRE2 , SPACE , 

CRSR  HØJRE, SPACE, CRSR  HØJRE)") 
10700  IF  MK>DK  THEN  GOTO  30000 
10800  IF  MK=DK  THEN  GOTO  40000 


20000  PRINT" (BLAA, RVS  ON, CRSR  NED2, 
CRSR  HØ JRE2 , SP ACE3 , CRSR  HØJRE2, 
SPACE, CRSR  HØJRE2, SPACE, 

CRSR  HØJRE3, SPACE, CRSR  HØJRE2, 
SPACE , CRSR  HØJRE , SPACE4, 

CRSR  HØJRE, SPACE, CRSR  HØJRE2, 
SPACE, CRSR  HØJRE, SPRCE3, 

CRSR  HØJRE2, SPACE3, CRSR  HØJRE3)") 
20010  PRINT" (RVS  ON, CRSR  HØJRE2, 

SPACE , CRSR  Hø JRE2 , SPACE , 

CRSR  HØJRE, SPACE, CRSR  HØJRE2, 

SPACE , CRSR  HØJRE3 , SPACE , 

CRSR  HØJRE2, SPACE, CRSR  HØJRE, 
SPACE, CRSR  HØJRE2, SPACE, 

CRSR  HØJRE, SPACE2, CRSR  HØJRE, 
SPACE, CRSR  HØJRE, SPACE, 

CRSR  HØJRE2, SPACE, CRSR  HØJRE2, 
SPACE, CRSR  HØJRE4)") 

20020  PR I NT "(RVS  ON, CRSR  HØJRE2, 

SPACE, CRSR  Hø JRE2, SPACE, 

CRSR  Hø JRE, SPACE, CRSR  HØJRE2, 

SPACE , CRSR  Hø JRE3 , SPACE , 

CRSR  HØJRE2, SPACE,  CRSR  HØJRE, 
SPACE, CRSR  Hø JRE2, SPACE, 

CRSR  HØJRE -SPACE2, CRSR  HØJRE, 
SPACE, CRSR  HØJRE, SPACE, 

CRSR  HØJRE2, SPACE, CRSR  HØJRE2, 
SPACE, CRSR  HØJRE4)") 

20030  PRINT" (RVS  ON, CRSR  HØJRE2, 

SPACE , CRSR  HØ JRE2 , SPACE , 

CRSR  HØJRE, SPACE, CRSR  HØJRE2, 

SPACE , CRSR  Hø JRE3 , SPACE , 

CRSR  HØJRE2, SPACE -CRSR  HØJRE, 
SPACE, CRSR  Hø JRE2, SPACE, 

CRSR  HØJRE, SPACE, CRSR  HØJRE, 
SPACE2, CRSR  HØJRE, SPACE, 

CRSR  HØJRE2, SPACE, CRSR  HØJRE2, 
SPACE , CRSR  Hø JRE4 ) " ) 

20040  PRINT” (RVS  ON, CRSR  HØJRE2, 

SPACE , CRSR  HØJRE2 , SPACE , 

CRSR  HØJRE, SPACE, CRSR  Hø JRE2 , 
SPACE, CRSR  HØJRES, SPACE, 

CRSR  HØJRE2, SPACE, CRSR  HØJRE, 
SPACE4 , CRSR  HØJRE , SPACE , 

CRSR  HØJRE, SPACE2, CRSR  HØJRE, 

SPACE , CRSR  HØ JRE2 , SPACE , 

CRSR  HØJRE2, SPACE, CRSR  HØJRE4)") 
20050  PRINT" (RVS  ON, CRSR  HØJRE2, 

SPACE , CRSR  HØ JRE2 , SPACE , 

CRSR  HØJRE, SPACE, CRSR  HØJRE2, 
SPACE, CRSR  HØJRE4 , SPACE2 , 

CRSR  HØJRE2, SPACE, CRSR  HØJRE2, 
SPACE, CRSR  HØJRE, SPACE, 

CRSR  HØJRE2, SPACE, CRSR  HØJRE, 
SPACE , CRSR  Hø JRE2 , SPACE , 

CRSR  HØJRE2, SPACE, CRSR  HØJRE4)") 
20060  PR I NT "(RVS  ON, CRSR  HØJRE2, 

SP ACE3 , CRSR  Hø JRE2 , SPACE4 , 

CRSR  HØJRE4)I (RVS  OFF)l(RVS  ON, 
CRSR  HØJRE2, SPACE, CRSR  HØJRE2, 
SPACE, CRSR  HØJRE, SPACE, 

CRSR  HØJRE2, SPACE, CRSR  HØJRE, 
SPACE3,CRSR  HØJRE3, SPACE, 

CRSR  HØJRE4)") 

20100  GOTO  50000 

30000  PRINT" (BLAA, RVS  ON, CRSR  NED2, 
SPACE4 , CRSR  HØJRE , SPACE4, 

CRSR  HØJRE, SPACE4, CRSR  HØJRE3, 
SPACE , CRSR  HØ JRE2 , SPACE , 

CRSR  HØJRE, SPACE4, CRSR  HØJRE, 

SPACE , CRSR  HØJRE2 , SPACE , 

CRSR  HØJRE, SPACE3, CRSR  HØJRE2, 
SPACE3 ) " ; 

30010  PRINT" (RVS  ON, CRSR  HØJRE3, 

SPACE , CRSR  HØJRE , SPACE , 

CRSR  HØJRE4, SPACE, CRSR  HØJRE2, 
SPACE , CRSR  HØJRES , SPACE , 

CRSR  HØJRE2, SPACE, CRSR  HØJRE, 

SPACE , CRSR  HØ JRE2 , SPACE , 

CRSR  HØJRE, SPACE2, CRSR  HØJRE, 

SPACE , CRSR  HØ JRE , SPACE , 

CRSR  HØJRE2, SPACE, CRSR  HØJRE2, 
SPACE, CRSR  HØJRE)") 

30020  PR I NT "(RVS  ON, CRSR  HØJRE3, 
SPACE, CRSR  HØJRE, SPACE, 

CRSR  HØJRE4, SPACE, CRSR  HØJRE6, 
SPACE, CRSR  Hø JRE2, SPACE, 

CRSR  HØJRE, SPACE, CRSR  HØJRE2 , 
SPACE, CRSR  HØJRE, SPACE2, 

CRSR  HØJRE, SPACE, CRSR  HØJRE, SPACE, 
CRSR  HØJRE2, SPACE, CRSR  HØJRE2, 
SPACE, CRSR  HØJRE)") 

30030  PRINT" (RVS  ON, CRSR  HØJRE3, 

SPACE , CRSR  HØJRE , SPACE3 , 

CRSR  HØJRE2, SPACE, CRSR  HØJRE6, 
SPACE , CRSR  HØ JRE2 , SPACE , 

CRSR  HØJRE, SPACE, CRSR  HØJRE2, 
SPACE, CRSR  HØJRE, SPACE, CRSR  HØJRE, 
SPACE2 , CRSR  HØJRE , SPACE , 

CRSR  HØJRE2, SPACE, CRSR  HØJRE2, 
SPACE, CRSR  HØJRE)"; 


30040  PR I NT "(RVS  ON, CRSR  HØJRE3, 
SPACE, CRSR  HØJRE, SPACE, 

CRSR  HØJRE4, SPACE, CRSR  HØJRE, 
SPACE2 , CRSR  Hø JRE3 , SPACE , 

CRSR  HØJRE2, SPACE, CRSR  HØJRE, 
SPACE4 , CRSR  HØJRE , SPACE , 

CRSR  HØJRE, SPACE2, CRSR  HØJRE, 
SPACE , CRSR  Hø JRE2 , SPACE , 

CRSR  HØJRE2,  SPACE,  CRSR  HØJRE )*') 

30050  PRINT" (RVS  ON, SPACE, 

CRSR  HØJRE2, SPACE, CRSR  HØJRE, 
SPACE, CRSR  HØJRE4, SPACE, 

CRSR  HØJRE2,  SPACE, CRSR  HØJRE4, 

SP ACE2 ,  .CRSR  Hø JRE2 ,  SPACE , 

CRSR  HØJRE2, SPACE, CRSR  HØJRE, 
SPACE, CRSR  HØ JRE2, SPACE, 

CRSR  HØJRE, SPACE, CRSR  HØJRE2, 

SPACE , CRSR  HØ JRE2 , SPACE , 

CRSR  HØJRE)"; 

30060  PR I NT "(RVS  ON, CRSR  HØJRE, 
SPACE2, CRSR  HØJRE2, SPACE4, 

CRSR  HØJRE, SPACE4, CRSR  HØJRE4)I (R 
VS  OFF)l (RVS  ON, CRSR  Hø JRE2, SPACE, 
CRSR  HØJRE2, SPACE, CRSR  HØJRE, 

SPACE , CRSR  Hø JRE2 , SPACE , 

CRSR  HØJRE, SPACE3, CRSR  HØJRE3, 
SPACE, CRSR  HØJRE)") 

30100  GOTO  50000 

40000  PRINT" (BLAA, RVS  ON, CRSR  NED2, 
CRSR  HØJRE, SPACE, CRSR  HØJRE2, 

SPACE , CRSR  HØJRE , SPACE4 , 

CRSR  HØJRE, SPACE4, CRSR  HØJRE, 
SPACE4 , CRSR  HØJRE , SPACE4 , 

CRSR  HØJRE, SPRCE4, CRSR  HØJRE, 

SP ACE4 , CRSR  HØJRE , SPACE3 , 

CRSR  HØJRE )Hi 

40010  PR I NT "(RVS  ON, CRSR  HØJRE, SPACE, 
CRSR  HØJRE2, SPACE, CRSR  HØJRE, 
SPACE, CRSR  Hø JRE2, SPACE, 

CRSR  HØJRE, SPACE, CRSR  HØJRE4, 

SPACE , CRSR  HØ JRE2 , SPACE , 

CRSR  HØJRE4, SPACE, CRSR  HØJRE, 

SPACE , CRSR  Hø JRE2 , SPACE , 

CRSR  HØJRE, SPACE, CRSR  HØJRE2, 
SPACE, CRSR  Hø JRE2, SPACE, 

CRSR  HØJRE2)"; 

40020  PRINT" (RVS  ON, CRSR  HØJRE, SPACE, 
CRSR  HØJRE2, SPACE, CRSR  HØJRE, 

SPACE , CRSR  HØ JRE2 , SPACE , 

CRSR  HØJRE, SPACE- CRSR  HØJRE4, 

SPACE , CRSR  Hø JRE7 , SPACE , 

CRSR  HØJRE, SPACE, CRSR  HØJRE2, 

SPACE , CRSR  HØJRE , SPACE , 

CRSR  HØJRE2, SPACE, CRSR  HØJRE2, 
SPACE, CRSR  HØJRE2)"; 

40030  PRINT" (RVS  ON, CRSR  HØJRE, SPACE, 
CRSR  HØJRE2, SPACE, CRSR  HØJRE, 

SPACE , CRSR  Hø JRE2 , SPACE , 

CRSR  HØJRE, SPACE3, CRSR  HØJRE2, 
SPACE , CRSR  HØ JRE7 , SPACE , 

CRSR  HØJRE,  SPACE,  CRSR  HØJRE2, 

SPACE , CRSR  HØ JRE , SPACE4 , 

CRSR  Hø JRE2, SPACE, CRSR  HØJRE2)"; 

40040  PRINT" (RVS  ON, CRSR  HØJRE, SPACE, 
CRSR  HØJRE2, SPACE, CRSR  HØJRE, 
SPACE4,CRSR  HØJRE, SPACE, 

CRSR  HØJRE4, SPACE, CRSR  HØJRE, 
SPACE2,CRSR  HØ JRE4, SPACE, 

CRSR  HØJRE, SPACE, CRSR  HØJRE2, 

SPACE , CRSR  HØJRE , SPACE2 , 

CRSR  HØJRE4, SPACE, CRSR  HØJRE2) " ,' 

40050  PR I NT "(RVS  ON, CRSR  HØJRE, SPACE, 
CRSR  HØJRE2, SPACE, CRSR  HØJRE, 

SPACE , CRSR  Hø JRE2 , SPACE , 

CRSR  HØJRE, SPACE, CRSR  HØJRE4, 

SPACE , CRSR  Hø JRE2 , SPACE , 

CRSR  HØJRE, SPACE  CRSR  HØJRE2, 

SPACE , CRSR  HØJRE , SPACE , 

CRSR  Hø JRE2 ,  SPACE ,  CRSR  HØJRE, 

SPACE, CRSR  HØJRE, SPACE, 

CRSR  HØJRE3, SPACE, CRSR  HØJRE2)"; 

40060  PRINT" (RVS  ON, CRSR  HØJRE, 

SPACE4 , CRSR  HØJRE, SPACE, 

CRSR  HØJRE2, SPACE, CRSR  HØJRE, 

SPACE , CRSR  Hø JRE4 , SPACE4 , 

CRSR  Hø JRE2 , SP ACE2 , CRSR  HØJRE2, 
SPACE4 , CRSR  HØJRE , SPACE , 

CRSR  HØJRE2, SPACE, CRSR  HØJRE2, 
SPACE, CRSR  HØJRE2)"; 

40100  GOTO  50000 

50000  PR I NT "(RVS  OFF , HVID, 

CRSR  NED) JEG  FIK"MK "  POINT  (SO 
RT) I  (GRØN) ØNSKES  NVT  SPIL  "; 

50010  PRINT"(HVID)DU  FIK  "DK"  POINT 
(SORT)I (GRØN) < J/N) 

50015  INPUT "(CRSR  OP, CRSR  HØJRE35) " ; 

N* 

50020  IF  N*»"J"THEN  5 

50030  IF  N*="N"THEN  END 

50040  GOTO  50000 


Renteknuser 


■  Hvis  du  har  købt  et  eller  an¬ 
det  på  albetaling  kan  dette 
program  opstille  et  betalings¬ 
skema  lor  dine  udgifter. 

Du  indtaster  gældens  størrel¬ 
se.  rentefoden  samt  antal  ter¬ 
miner.  Programmet  udskriver 
derefter  hvor  meget  du  skal 
betale  pr.  måned,  og  for  hver 
termin,  hvor  stor  en  del  af 
ydelsen  der  går  til  renter,  samt 
hvor  stor  restgælden  er  efter 
hver  termin. □ 

Carsten  Andersen 
og  John  Hvidlykke 


AMtnMO 


1@  REM 

20  REM  -AFBETAL I NGSPROGRAM- 
3ø  REM  firti san  DfiTfi  1985 
4ø  REM  Carsten  Andersen 
5ø  REM  John  Hvidlykke 
6ø  REM 

70  INK  ø,  1  ••  INK  1,26 -BORDER  l'MODE  1  PEN  1 
80  ' 

90  DEF  FNa<x)=ROUND<x*løø VI øø 
løø  GOSUB  660 
110  ' 

120  CLS  >  LOCflTE  4, 3 'PRINT  CHR#<  150)  i  STRING«  32,  CHR«  154  >)iCHR«  156  > 

130  PRINT  TAB(  4  )CHR«  149  );  TfiB<  37  )CHR«  149  > 

140  PRINT  TAB<4).;CHR«  149);TAB<  12 )" AFBETAL INGSPROGRAM" ; TAB< 37 )CHR«  149) 

150  PRINT  TAB<  4  )CHR«  149);  TAB<  37  )CHR«  149) 

16ø  PRINT  TAB<  4  )CHR«  149);  TRB<  37  )CHR«  149) 

170  PRINT  TAB<4)CHR«149>;"  Copyright'  firtisan  DfiTfi  1985" ;  TAB<  37  )CHR$C149  ) 

180  PRINT  TAB<  4  )CHR*(  149 )»  TAB<  37  )CHR«  149  ) 

19ø  PRINT  TAB< 4 )CHR« 1 49 ) ; "  IDE'  Carsten  Andersen" ;TAB< 37 >CHR« 149) 

200  PRINT  TfiBC 4 )CHR«  1 49  )  i  T  AB<  37  )CHR«  1 49 ) 

210  PRINT  TAB<4)CHR«149);"  PROGRAMMERING'  Carsten  Andersen" s  TfiBf  37 )CHR«  1 49 ) 

220  PRINT  TAB<  4  )CHR«  1 49  ) ;  TAB<  37  )CHR«  1 49  ) 

230  PRINT  TAB<  4  )CHR*<1 49  );TAB<  21  )"  John  Hvidlykke" ;  TAB<  37  )CHR«  149  ) 

240  PRINT  TfiBC  4  )CHR«  149  );  TAB<  37  )CHR«  149  > 

250  PRINT  TAB(4)CHR«  147  );  STRING«  32,  CHR«  154  ));  CHR«  153) 

260  a*=INKEV*'IF  a*=""  THEN  260 

270  IF  LOWER«  a*  )="9"  THEN  AFTER  50  GOSUB  700 

280  GOSUB  590 

290  MODE  1 

3øø  PRINT  CHR*( 24) 'PRINT  STRING« 40,"  "> 

310  LOCflTE  1,2  'PR  I  NT  TAB<  15)"  AFBETALING".' CHR«  24) 

320  PRINT ' PRINT  TflBCl 1  V'flrtisan  DATA  1985" 

330  FOR  i=l  TO  4 ' PRINT ' NEXT ' PRINT" INDTAST  GzLD'  " 

340  PR I NT 'PR I NT "INDTAST  RENTESATS' 

350  PRINT  PRINT" INDTAST  ANTAL  TERMINER'" 

360  LOCATE  1,23 'PR  I  NT  CHR«  24  );  STRING«  40,  "  "> 

370  LOCATE  1,23 -  PRINT  TAB< 14);  "DATA  OK  < J/N >" ; CHR« 24 ) 

380  LOCATE  15,9' INPUT  "",  9aeld* '  9a.eld=VAL< 9a.eld* ) '  IF  9aetd=ø  THEN  38ø 
390  LOCflTE  2ø, 11 'INPUT  "",Pct*'Pct=VAL<Pct*)= IF  Pct=0  THEN  39ø 
4øø  LOCATE  25, 13' INPUT  , n* ' n=VAL< n* >' IF  n=ø  THEN  4øø 
41ø  a*=INKEY* 

420  IF  LOWER«  a*  )="n"  THEN  380 
430  IF  LOWER«  a*X>".j"  THEN  410 
440  GOSUB  590 
450  Pct2=Pct/løø 

46ø  ydelse=9aeld*Pct2A l-( l+Pct2)^-n) 

470  GOSUB  730 

480  FOR  i=l  TO  n '  rente=9aeld*Pct2 '  a.fdra.9=ydelse-rente '  9aeld=9aeld-afdra9 

490  IF  ri  >12  AND  i  >12  THEN  WHILE  INKEY$<>"  "'LOCATE  1 , 24  '  PRINT  "TAST  <SPACE>  FOR  S 

CROLL" ' WEND 

5øø  PRINT  #2,  i ; TAB<  8  )FNa< rente );  TAB<  18 >FNa< afdra.9  ); TABC 29 )FNa< 9aeld ) 

510  NEXT 

520  LOCflTE  1,24 -PR I NT "ØNSKES  GENKØRSEL  CJ/N)?" 

530  a*=" " 

540  fl*=INKEY* 

550  IF  LOWER« a*  )■" J"  THEN  28ø 

560  IF  LOWER$<  a* )<>"n"  THEN  540 

570  LOCflTE  1,24  PR I NT  STRING« 25,"  "> 

58ø  LOCflTE  1,24 -END 
590  ' 

6øø  FOR  i=l  TO  35 
61ø  PRINT 
620  CflLL  «<B019 
63ø  NEXT  i 
640  RETURN 

£50  / 

660  SYMBOL  AFTER  121 

-670  SYMBOL  122,126,216,216,254,216,216,222 

680  RETURN 
690  ' 

7øø  INK  ø,9' INK  1,25 'BORDER  9 
710  RETURN 
720  ' 

730  REM 

740  REM  OVERSKRIFT 
750  REM 

760  MODE  1 > WINDOW  #1,1,40, 1,1‘PEN  #1 ,ø'PflPER#l , 1 =CLS#1 
770  MINDOH  #2, l,4ø, 10,21 =PEN  #2,1' PAPER#2 , ø ' CLS42 

780  PRINT#1,  "STRRTGzLD'  "FNaX  9aeld ).' TABC  1 9 ) "PCT ‘  " POIJND1' Pct  > ;  TAFK 28 ) " TERM T MFR '  " RQU 
ND<n)j 

790  LOCflTE  1,4 'PR I NT "TERMINSYDELSE  < Kr. >' "FNa/ ydelse) 

000  LOCflTE  1,7 'PR I NT "TERM IN  RENTE  AFDRAG  PFSTG?!  O” 

810  PRINT  STR I NG«  40 , CHR$< 1 54 ) ) 

820  LOCflTE  1,23 'PR  I  NT  STRING«  40,  CHR«  154  >>' 

830  PRINT 'RETURN 


Kmaskak 


TSm 

Kender  du  det  lille  spil  fra  BRIO, 
hvor  der  er  32  pinde  og  et  hul  i 
midten? 

Det  gælder  i  Kinaskak  om  at  place¬ 
re  den  sidste  pind. 

Reglerne  er  som  følger: 

Man  må  kun  flytte  een  pind.  hvis 
man  hopper  over  en  anden  og  ef¬ 
ter  man  har  hoppet  over  den,  skal 
den  fjernes. 

I  hullet  i  midten,  skal  der  stå  en 
pind  til  sidst. 

Thomas  Lykkeberg 


,y ' 

HCT 

KjmCto  Ttayi«n 


PROGRAM :  KINASKAK* 

9  RESTORE 

10  PRINT" (CLR) " = KK=K : PRINT" (HOME) "TA 
B ( 1 7 ) B* ; KK" (L . BLAA , SPACE  >REST " 

:  K=32 

11  POKE  54296. 15 : POKE  54277,10 
:POKE  54273,0 

12  POKE  54276, 129  POKE  54273,20 

13  PRINT" (HOME, CRSR  NED23) "TAB(23) " ( 
RVS  ON, GRØN) NYT  SPIL  =  9<RVS  OFF>" 

20  PR  I NT " ( HOME , CRSR  NED6) "TAB (5) " (RV 
S  ON, GUL) Sil  2  3  4  5  6  7*" 

21  PRINT  TAB(5) " (RVS  ON, 

GUL) 1 "TAB( 19) " 1 " 

22  PRINT  TAB(5) " (RVS  ON, GUL, 

SPACE) "TAB (19)"  " 

23  PRINT  TABC5) " (RVS  ON, 

GUL)2"TAB( 19) "2" 

24  PRINT  TAB(5) " (RVS  ON, GUL, 

SPACE) "TAB (19)"  " 

25  PRINT  TAB(5) " (RVS  ON, 

GUL)3"TAB( 19) "3" 

26  PRINT  TRBC5) " (RVS  ON, GUL, 

SPACE) "TAB( 19) "  " 

27  PRINT  TAB<5) " (RVS  ON, 

GUL)4"TAB( 19) "4" 

28  PRINT  TAB(5) " (RVS  ON, GUL. 

SPACE) "TAB':  19)"  " 

29  PRINT  TRB(5) " (RVS  ON, 

GUL)5"TAB( 19) “5" 

30  PRINT  TAB(5) " (RVS  ON, GUL, 

SPACE) "TAB (19)"  " 

31  PRINT  TRB(5) " (RVS  ON. 

GUL)6"TAB(19> "6" 

32  PRINT  TAB(5) " (RVS  ON, GUL, 

SPACE) "TAB( 19)"  " 

33  PRINT  TAB(5) " (RVS  ON, 
GUL)7"TAB(19)"7" 

34  PRINT  TAB(5) " (RVS  ON, 

GUL)851  2  3  4  5  6  78" 

35  IF  KK>=1  THEN  120 

100  DIM  A(7) : DIM  B(7) :  DIM  C(7) 

DIM  D(7) ; DIM  E(7) : DIM  F(7) 

: DIM  G(7) 

120  FOR  Q=1  TO  7 : READ  A(Q):W=U+1 
IF  W<3  OR  W>5  THEN  POKE  A(Q),32 
GOTO  140 

130  POKE  fl(Q) ,81 

140  NEXT  Q • W=ø 

220  FOR  Q=1  TO  7: READ  B(Q)W=W+1 

IF  W<3  OR  W>5  THEN  POKE  B(Q),32 
: GOTO  240 

230  POKE  B(Q) , 81 

240  NEXT  Q ; W=ø 


32ø  FOR  Q=1  TO  7- READ  C(Q) 

330  POKE  C(Q) ,31 
340  NEXT  Q 

420  FOR  Q=>1  TO  7:  READ  D(Q)U=W+1 

IF  W=4  THEN  POKE  D(0) ,  46  :  GOTO  440 
430  POKE  D(Q) , 81 
44ø  NEXT  Q ■ W=ø 
520  FOR  Q=1  TO  7 : READ  E(Q) 

530  POKE  E(Q) , 81 
540  NEXT  Q 

620  FOR  Q=1  TO  7 • READ  F(Q):W=W+1 
IF  W<3  OR  W>5  THEN  POKE  F(Q),32 
: GOTO  640 
630  POKE  F (Q) , 81 
640  NEXT  Q : W=ø 

720  FOR  Q=1  TO  7 : READ  G(Q)U=W+1 
IF  W<3  OR  W>5  THEN  POKE  G(Q),32 
: GOTO  740 
730  POKE  G(Q) , 81 
740  NEXT  QU=ø  POKE  54276,0 
: POKE  54277,9 

745  POKE  54276, 17:P0KE  54273,100 
:FOR  T=1  TO  500 -NEXT  T 
POKE  54276,0 

750  POKE  54276, 17 : POKE  54273,50 
:  PRINT"  (HOME,  HVID )FLVT  FRA" 

FOR  T=1  TO  100 : NEXT 

751  INPUT  K$ • IF  K*="9"THEN  INPUT"(LI 
LLA)SKRI V  DIT  NAVN" I B* : GOTO  9 

752  PR I NT "(CRSR  OP, SPACE5) " 

754  LJ=LEFT*(Kt, 1 ) : Z=VAL(L$) 

755  L$=RIGHT*(K»,  1)  :H=VAL(L$) 

760  POKE  54276,0 

761  IF  Z<1  OR  Z>7  THEN  750 
765  IF  H<1  OR  H>7  THEN  750 

770  IF  H<3  AND  Z<3  OR  H<3  AND  Z>5  TH 
EN  750 

775  IF  H>5  AND  Z<3  OR  H>5  AND  Z>5  TH 
EN  750 

850  POKE  54276, 17: PRINT" (HOME, 

L. BLAA)FLVT  TIL" : FOR  T=1  TO  100 
: NEXT  T : POKE  54276,0 

851  INPUT  K*: PRINT" (CRSR  0P,SPACE5)" 

854  L*=LEFT*(K$, 1 ) : X=VAL(L*) 

855  L$=RIGHT$(K$, 1 ) ; I=VAL(L$) 

860  IF  X<1  OR  X>7  THEN  850 

865  IF  Kl  OR  I >7  THEN  850 

866  IF  Z+H>X+I+2  OR  X+I>Z+H+2  THEN  7 
50 

867  IF  Z+H=X+I+1  OR  X+I=Z+H+1  THEN  7 
50 

868  IF  Z=X  OR  H-I  THEN  874 

873  GOTO  750 

874  IF  I <3  AND  X<3  OR  I<3  AND  X>5  TH 
EN  850 

875  IF  I >5  AND  X<3  OR  I >5  AND  X>5  TH 


EN  850 

880  IF  H)I  THEN  R=+30 

881  IF  H<I  THEN  R=-80 

882  IF  Z>X  THEN  R=-2 

883  IF  ZCX  THEN  R=+2 

890  POKE  54276, 33  POKE  54273,50 

911  IF  H=1  THEN  POKE  A(Z>,46 

912  !F  H=2  THEN  POKE  B(Z),46 

913  IF  H=3  THEN  POKE  C(Z),46 

914  IF  H=4  THEN  POKE  D(Z),46 

915  IF  H=5  THEN  POKE  E(Z),46 

916  IF  H=6  THEN  POKE  F(Z),46 

917  IF  H=?  THEN  POKE  G(Z),46 
920  FOR  T=1  TO  200: NEXT  T 

POKE  54276,0  FOR  T=1  TO  100 
: NEXT  T : POKE  54276, 33 :K=K-1 

1011  IF  1=1  THEN  POKE  A(X),81 
FOR  T=1  TO  100 : NEXT  T 
POKE  A(Z)+R, 46 

1012  IF  1=2  THEN  POKE  B(X),81 
:FOR  T=1  TO  løø : NEXT  T 

: POKE  B(Z)+R, 46 

1013  IF  1=3  THEN  POKE  C(X),81 
: FOP  T=1  TO  100  NEXT  T 

POKE  C(Z)+R,46 

1014  IF  1=4  THEN  POKE  D(X),81 
FOR  T=1  TO  100  NEXT  T 
POKE  D(Z)+R, 46 

1015  IF  1=5  THEN  POKE  E(X),81 
FOR  T=1  TO  100: NEXT  T 
POKE  E(Z)+R, 46 

1016  IF  1=6  THEN  POKE  F(X),81 
FOR  T=1  TO  1 00 : NEXT  T 

:POKE  F(Z)+R, 46 

1017  IF  1=7  THEN  POKE  G(X),81 
:FOR  T=1  TO  100 : NEXT  T 

POKE  G(Z)+R,46 

1018  PRINT" (HOME) "TAB (34) " 

1019  PRINT" (HOME) "TAB(34)K"  " 

1020  POKE  54276,0  FOR  T=1  TO  100 
:  NEXT  T 

4øøø  GOTO  750 

5000  DATA  1310,1312,1314,1316,1318, 
1320, 1322 

5010  DATA  1390,1392,1394,1396,1398, 
1400, 1402 

5020  DATA  1470, 1472, 1474,1476,1478, 
1480, 1482 

5030  DATA  1550,1552,1554,1556,1558, 
1560, 1562 

5040  DATA  1630,1632,1634,1636,1638, 
1640, 1642 

5060  DATA  1710, 1712, 1714, 1716, 1718, 
1720, 1722 

5070  DATA  1790,1792,1794,1796,1798, 
1300, 1802 


Rocket  Lander 


■  Dette  er  det  velkendte  spil. 
hvor  du  skal  bombe  højhuse¬ 
ne  under  din  raket  tor  ikke  at 
ramle  ind  i  husene,  da  din  ra¬ 
ket  har  motorskade  og  daler 
langsomt  ned.  Programmet 
har  10  sværhedsgrader  ind¬ 
bygget,  og  du  bomber  med 
tasten  B.D 

Claus  Eveis  Christensen 


1  INK  7:  LET  h  i  =.50®  .  LET  jUI 
l_ET  sd=C.  LET  SC=®.  LET  v  =0  L 
ET  i  =id  BORDE*  1  PAPER  O  CL  S 
GO  5UB  SØØØ:  GO  TO  3110 
5000  RESTORE  5000  POR  a  =USR  "a" 
TO  USR  "g "♦7:  READ  b:  POKE  3,b: 
NEXT  a :  RETURN  :  DATA  251 , 96 , 2S 
5 , 126 , 126 , 255 , 96 , 254 ,0,0, 24.0, 63, 
63 , 240 , 0,0 , 0,0 , 0 , 60 , 24. ,  0,  0 , 0 , 0 , 2 
8,8.6, 137, 255, 129, 129,129, 139,16 
5 , lfeS , 189 , 129 , 129 , 129 ,0,0, 255 , 0 , 
0 , 255,0 , 0 , 255 , 170 , 0 , 0,0,® , 0 , 0 
5010  BORDER  3.  CLS  DIM  »(SØ) : 
FOR  a=3  TO  27.  LET  P =21 -TNT  ( RND 
*10):  LET  h=INT  (RND*6)+1:  FOR  b 
=21  TO  P  STEP  -1:  PRINT  AT  b,a; 
INK  LET  W  ( a )  =p  NEXT  b:  P 

RINT  AT  b NEXT  a 
6020JFOR  9=0  TO  31.  PRINT  SI; AT 

ié95  PR3CNTEAT  0,10,  FLASH  1;  INK 
6 ; " GET  READY":  FOR  J=8  TO_20®. 
NeScT  J:  BEEP  .1,5:  PRINT  AT  0,10 


;#l;AT  1,20; "LEUEL.- "; le 

7010  PRINT  SI ;  AT  1,9,’iC;  SI;  AT  2, 


26;  le 

7011  PRINT  AT  X  -1 ,  v ;  ••  ";AT  x,v;' 
- AT  INT  a  ,  6 ;  "  §*.*.•  LET  x=x+I: 
LET  b>b»l 


O INT S M 

814.5  PRINT  RT  2B,0;  BRIRHT  2;  IN 
K  6;  FLASH  1; "PRESS  ANY  V.E V  TO  B 

eoiN" 


7020  BEEP  .001,40:  BEEP  .001,50 
7050  IF  b  >29  THEN  LET  b=l:  PRINT 


6100  LET  a=le.  LET  b  =  l:  LET  s  c =0 
LET  V=0 

6104  PRINT  SI,  AT  2 , 3;  "SCORE;  " ; S  C 
; SI; AT  1,20; "LEUEL: "; le 

6105  PRINT  Si; AT  1 , 9; s c ; »1 ; AT  1, 

illøepRINT  AT  INT  a,b;  INK  6; "  • 


BEEP  4  001/30-  BEEP  „001.40 
POR  q*0  TO  2:  NEXT  Q 
IF  V  »25  TMEN  OO  TO  SøO© 


RT  INT  *,09;"  ;  LET  a*a+.5 

7060  IP  «  Cb-fl)  >a+l  TMEN  OO  TO  60 

00 

7070  IP  »<W)-X  OR  tffyj-x-l  TMEN 
LET  S  C  m%  c  -f  0:  LET  *500:  LET  V 

■V-fl:  DEEP  .03,10 

7030  IP  X  >21  TMEN  PRINT  RT  X-l.U 
**:  LET  X  =0 :  LET  w(y)*100:  BEE 
P  .003,0:  BEEP  .005,3:  GD  TD  61ø 

7090  PRINT  RT  X-l,y,”  ” :  GO  TO  T 

OlO 

8000  PRINT  RT  «,b,  BRXGHT  1;  PLR 
3M  1; 

0010  PRINT  WT  «,b;  BRIGMT  1;  PLR 
3M  ll  ••■»••s  POR  C  *20  TO  13  STEP  - 
.8:  BEEP  .001,«:  NEXT  «;  POR  O -« 
TO  21  STEP  .3:  PRINT  RT  O,  b; 

RT  o  ,  b;  OVER  1;  '*  C3  ** :  BEEP  .  øT, 

6:  PRINT  RT  O  ,b  ;  OVER  1; - *:  BE 

EP  .01,-3:  PRINT  RT  O  ,  b;  "  “ ;  NE 

XT  O 

9090  PRINT  RT  3,11;  PLRSM  1; “ORM 
E-OUER" 

9095  IP  SC>hi  TMEN  LET  hJ«S C 
5100  POR  l*ø  TO  300:  NEXT  l 
8110  CLS  .  PRINT  RT  2,0,  INK  2;  " 


IP  INKEY  0  <>••••  TMEN  GO  TO  70 


LET  b  *  b  •*  1 :  IF  T.ME.N  LET 

:  PRINT  RT  INT  3  ,29;  **  ":  L 

^If‘«  (bflJ  *a+l  THEN  CO  TO  80 


0120  PRINT  RT  7,0;  INK  4;  ** 


GO  TO  6105 

LET  X  * INT  a42.  LET  y*b  +  l 
PRINT  ai;RT  1/3;  "5COPE.  JC 


3NDER 


Lf 


3130  PRINT  HT  13,0,  FLRBN  i;  INK 
6;  "LRST  PLRYER  GOT  " ; S  C ;  POINT 


8140  PRINT  RT  15.0;  PLRSM  1;  BRI 
G MT  1;  INK  2; "HIGH5CORE  P 


:  RERD  Vt.  BEEP  .15,vt+12;  BEEP 

.  1 ,  V  t 

8152  IP  INKEY*  <>*,M  THEN  GO  TO  81 
62 

8133  NEXT  t:  DRTR  3 , 10. 6. 13. 1..  8  , 

-7 ,  -2,-4,  -11,  -9,  -2,  -4 ,8  ,5,6, 1 , 11 
,6,13,8,11,6,13,8,1,  -2  ,  -4. ,  -6,3,1 
, ~2 . —*,6,3, —2,  1 , -4,  —2, —6 , —4,  “11 , 

8154  POR  t*0  TO  500 

8155  IP  INKEY*  <  > “ "  THEN  GO  TO  61 

62 

8136  NEXT  t 
8157  GO  TO  8151 

8162  BEEP  .03,-10.  BEEP  .05,-6 

8163  INPUT  "LEVEL  (1-10)  :  ",  le 

8166  IP  le >10  OR  le <1  THEN  GO  TO  tø 
8165 

8167  LET  lc=INT  RBS  le.  CLS  .  GO  .• 
TO  6010 

90øø  LET  a  =  (  INT  d.\  :  FOR  d  =b  TO  2 
9:  PRINT  RT  INT  a  ,  d  .  LET  .3- 

C«SCfl:  PRINT  02, RT  2 , 9,SC.  NEXT 
d:  PRINT  RT  INT  a,29;"==" 

9010  FOR  Csa+l  TO  20.  FOR  d  =0  TO 
29:  PRINT  RT  C  ,  d  ,  "=#»•"  .  L£f  SC*  V-. 
SC+1:  PRINT  81,  RT  1  ,  S*.  «■  f .  .NEXT  d  ..V 
PRINT  RT  C,  29,"="  NEXT  C 
9020  POR  d  =ø  TO  29:  PRINT  P;T  21, 
d  ;  "=*^"  :  LET  SCsSC+3  PRINT  » 1 ;  R  **- 
T  1,9; SC:  NEXT  d 

9060  FOR  a  =0  TO  200:  BORDER  l RND 
*7i :  FLRSM  1:  BRIGHT  1.  NEXT  å 
9065  FLASH  0:  BRIGHT  ø  BORDER  O 
9070  GO  TO  SØ 90 

9500  PRINT  “ 3RUE "  SRVE  " ROCKET 
L . “  LINE  1:  PRINT  " VER IFY”  VEPI 
FY  "ROCKET  L." 
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Kaptajn 

torpedo 


Du  er  blevet  ansat  i  det  sven¬ 
ske  militær  som  kaptajn  på 
en  torpedobåd.  Din  opgave 
er  at  bekæmpe  de  fjendtlige 
ubåde,  som  snuser  rundt  i 
skærgården.  Du  styrer  din  tor¬ 
pedobåd  med  tasterne  z  for 
venstre,  x  for  højre  og  m  for  at 
smide  torpedoer. 

.  Ivan  Jeppesen 


L_ 


i 

// 


IV AH  X  * 


S'X.- 


lø  SEH  vjnTiii 

20  PEN 

30  BORDER  4  . 

35  pfi?EP  1 :  INK.  V :  CLS 

Aø  GO  SUB  450 

50  GO  SUB  540 

60  GO  SUB  370 

70  LET  r=ø 

Sø  LET  b$=  "S*" 

Gø  LET  ty =10 
løø  LET  = 

110  LET  lix  »30 
ISø  LET  t  =0 
130  LET  x »30 

140  PRINT  PRPER  1;  INK  7 , RT  0,0 
.  'FORSØG«  "  ,  RT  0,  15.-  "PLETTERE«” 

■  150  LET  oy»INT  (PHDtS)  412 _ 

16ø  PRINT  PRPER  5..  INK  0/ RT  10 , 
Xib*:  PRINT  PRPER  1;  INK  6, RT  UV 

'l7øU^RINT  PRPER  5 , RT  0,0 i" 

;  PRPER  5  ,AT  0,24, " 

ISØ  PRINT  RT  0,8;  to, RT  0,24,  r 
190  PRLISE  10 

2øø  LET  suy  =uy  _ 

210  IF  t=0  THEN  LET  tx=x+l 
220  LET  sux=ux-  LET  sx»x 

I2ø  IFRINKEV*2""  THEN  GO  TO  290 
250  LET  X  RND  x<,_- 

Cii  -  ( INKEY*«"Z"  RND  x>0> 

260  IF  INKEY  4  =  "m "  THEN  LET  ,«1 
270  PRINT  PRPER  5, RT  10  ,  S  X  ; 

HEXT  n 

2QØ  L  ET  jj  x  »jj  x  -1 

300  IF  t«l  THEN  LET  sty«ty:  LET 
stxxtx  :  LET  tu*tjj  <-1  ONO  ty  <21: 
PRINT  RT  5tv,slx,  :  PRINT  INK 

7;  PRPER  1; RT  tv,  tx;  *  .  .  , 

310  IF  t  y  *21  THEN  LET  to«to-l: 
LET  t=0:  PRINT  PRPER  1;RT  21, tx; 
"  ••  •  LET  >  y  »10 :  GO  TO  780 
320  IF  >.o«0  THEN  OO  TO  730 
330  IF  RTTR  t UV , u X +1) =15  OR  ATT 
C  <uy ,ux +2> =15  THEN  GO  TO  850 
340  IF  ux«l  THEN  LET  to=to-i :  L 
fT  u  x  =30 :  LET  uy»INT  (RNDtlØ)  +12 
350  PRINT  RT  suy,sux;" 

360  GO  TO  160 

370  REM  Landskab 

360  POPER  1:  CLS 

390  FOR  n»@  TO  10 

400  FOR  f=0  TO  31 

410  PRINT  PRPER  5, RT  n,f; 

420  NEXT  f 
430  NEXT  n 
440  RETURN 

450  REH  Opstart  .  _ _ _ _ _ 

460  PRINT  RT  0,10;"*  TORPEDO  * 
470  PRINT  RT  2,3;  ‘‘  I  dette  spil 
skal  du  styre";  AT  3,3,  "en  torsed 
o  baad , de  r  er  paa  , RT  4,3,  jagt 
efter  en  ubaad." 

480  PRINT  OT  6,3; "Du  styre  ned 

disse  taster."  .  „  . 

490  PRINT  RT  8,3; Z“  <<  .GT 


5,3;  """x""  >>";RT  lø  ,  3;  “‘•"H”"  S» 

ider  torpedoen 

500  PRINT  RT  15,1; “Hvor  nanue  f 
orsoy  vil  du  have" 

510  INPUT  to 
520  LET  f  o  »  t  o 
630  RETURN 
540  REH  U.D.G 
550  FOR  f=0  TO  7 

560  RERD  a:  POKE  USR  "a"+f,a:  N 
EXT  f 

570  DRTR  BIN  00000111,  BIN  OOøøø 
111, BIN  11100111, BIN  11111111,81 
N  11111111, BIN  01111111, BIN  øøli 
1111, BIN  00011111 
580  FOR  f«0  TO  7:  RERD  a:  POKE 
USR  " b"  +  f , a :  NEXT  f 
590  DRTR  BIN  11100000,BIN  11 løø 

000, BIN  11110000, BIN  11111111 , BI 
N  11111111, BIN  11111111, BIN  5.111 
1111, BIN  11111100 
600  FOR  f=ø  TO  7:  RERD  a;  POKE 
USR  "  c  "  +  f  ,  a  :  NEXT  f 
610  DRTR  BIN  000®0111,BIN  øøøøø 
111, BIN  00000111, BIN  00111111,61 
N  10000000.BIN  11111111, BIN  0111 
1111, BIN  00111111 
620  FOR  f  «0  TO  7 :  RERD  a :  POKE 
USR  "d"+f,a:  NEXT  t 
630  DRTR  BIN  11003000, BIN  lløøø 
000, BIN  11100000, BIN  11111100,81 
N  11111110, BIN  11111111, BIN  5111 
1110, BIN  11111100 
640  RETURN 
650  REM  Eksplosion 
655  PRINT  RT  ty,t«;“  " 

660  PRINT  PAPER  1;  INK  6; RT  uy  - 

I ,  u  x ; "_0 :  / 

s :  0 

662  RE5TORE  665:  FOR  d=l  TO  3: 
RERD  j,k:  BEEP  j,k-  NEXT  d 
666  DRTR  . 1 , 1 1 ,  . 1 , 1 1 ,  . 8 , 16 ,  -  05 , 

II, . 05 , 16 , . 05 , 1 i , . 05 , 16 , 1 , 20 

670  LET  r»r+l 

680  LET  t  o  «  t  o  — 5 
690  PRUSE  100 

700  PRINT  PRPER  1;  INK  6; RT  uy- 

l,ux;  " 

710  PRINT  PRPER  E; RT  lø,x;“ 

720  GO  TO  80 

730  PRINT  PRPER  1,  INK  7;  RT  4,3 
; "Du  bar  ikke  flere  forsog" 

740  PRINT  PRPER  2;  INK  7;  RT  6,2 
;  "Du  ramte  ";r;"  ud  af  “;  fo;  ”  rau 
lise” 

750  INPUT  “Uil  du  prove  igen  { J 
xNJ  ";a$ 

760  IF  a*=“j"  OR  ai*"J"  THEN  RU 
N 

770  STOP 

7SØ  PRINT  PRPER  5; RT  lø, x;"  " : 

PRINT  PRPER  1; RT  uy,ux,"  " :  G 
O  TO  8ø 

790  SRUE  "TORPEDO"  LINE  10 
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designer 


■  Dette  program  kan  bruges 
til  at  definere  nye  tegn.  Pro¬ 
grammet  opstiller  et  stort  8*8 
felt,  hvor  man  kan  flytte  rundt 
med  en  cursor  og  designe  si¬ 
ne  egne  tegn.  Samtidig  kan 
man  se,  hvordan  tegnet  kom¬ 


mer  til  at  se  ud  i  naturlig  stør¬ 
relse.  Til  sidst  kan  man  tå  ud¬ 
skrevet  de  talkoder,  der  skal 
bruges,  i  en  SYMBOL-kom- 
mando  for  at  skabe  tegnet .  □ 
Martin  Vith 


Q 

iiimiim 


100  REM  ******************************* 

Hø  REM  tttt  CHARACTER  MAKER  tttt 
120  REM  ******************************* 

130  REM  *  SKREVET  AF  MARTIN  VITH  1905  * 

140  REM  * ****************************** 

13ø  _ 

160  REM  *********  VARIABLER  OG  SKAERMBILLEOE  ********* 

170  SYMBOL  AFTER  32DIM  L<7  5  . .  „  ll/fl 

180  INK  ø.ø' INK  1,18 'BOROER  0  MODE  1  PEN  1  PAPER  0  INK  2,6  INK  3,9'DIM  U<9,95 

190  FOR  A-l  TO  9 'FOR  B-l  TO  9  A • B 5-0  NEXT « NEXT 

200  PEN  1 -LOC ATE  1.12  PR I NT "KARAKTEREN  "*CHRt< 243 H" 

210  Mt-"AMSTRAD"  PEN  2  LOC ATE  2,14  GOSUB  760 
220  Mt-"CPC  464"  PEN  2'LOCATE  2,17G0$UB  760 
230  Mt- "CHARACTER "  PEN  l'LOCATE  1,20 'GOSUB  760 
240  Mt-"MAKER"  PEN  l'LOCATE  3,23  GOSUB  768 
250  PAPER  3 'PEN  Ø'LOCATE  1,1  PRINT" 

260  FOR  A-2  TO  9 'LOCATE  1,A> PRINT"  "♦STRINGt< 8, 143 )♦"  "  NEXT 
270  LOCATE  1,10  PRINT" 

280  PAPER  0 1  PEN  1 

290  WINDOW  «1, 12, 16, l.lø  PAPER  ti, 2  PEN  *1,0  CLS  il  _ 

300  PLOT  274,399,3'DPAW  639 , 399  DR AU  639.0  DRAW  274,0  DRAM  274.399 
310  PEN  l-LOCATE  22,2'PRINT  "PROGRAM  STYRING'" 

320  PAPER  0  PEN  1  LOCATE  19,4  PRINT  CHPt' 240 5 ,  PEN  2  PRINT  OP 
330  PEN  1L0CATE  19,6'PRINT  CHP*  24 1  5 .  '  PEN  2  PPI  NT  ^NED 
340  PEN  l  'LOCATE  19,8  PRINT  CHPt'-  242 5 •  : PEN  2^PPINT  "VENSTPE 
330  PEN  1L0CATE  19,18  PRINT  CHRt'243>.  PEN  2  PPINT  'Hø  IPE 

360  PEN  1  LOCATE  19,12  PRINT  "DEL", -PEN  2^PRINT  SLETTE  PPIK 

370  PEN  l-LOCATE  19, 14  PRINT  “COPY",  PEN  2_PR I NT  "LAVE  PPIK 
380  PEN  1  LOCATE  19,16'PRINT  "CLR".'PEN  2  JETTER  HELT 

390  PEN  1  LOCATE  19.18  PRINT  "ENTER" ,  PEN  2  PRINT  GIVER  KOOEP 

4øø  PEN  l'LOCATE  19. 20  PRINT  "P" .  PEN  2PRINT  "PWJSE", 

410  PEN  l'LOCATE  19,22'PRINT  "S", 'PEN  2  PRINT  'STOP  PAUSEN 
420  PEN  l'LOCATE  19,24  PRINT  "F", 'PEN  2  PRINT  "FARVER" 

430  X-2 '  Y-2 1  Xt-CHPt1'  1 43  5 

440  REM  **********  HOVED  PROGRAM  ********** 

450  FOR  S-l  TO  2 

460  LOCATE  X,Y  PEN  2  PR I NT  Xt  PLOT  236*Xt2, 226- Yt2 ■ 2 

470  IF  IJ< X,  Y 5-0  THEN  PEN  ø  LOCATE  X,Y  PRINT  Xt  PLOT  23f+Xt2. 226-YJ2, 0 
480  IF  U<X,Y)-1  THEN  PEN  1  LOCATE  X,Y' PPINT  Xt  PLOT  236*X*2 . 226- Y*2 - 1 
490  NEXT  S 


300  IF  X>2  AND  INKEYf  8  5-0  THEN  X-X-l 
510  IF  X<9  AND  INKEYf 1 >-0  THEN  X-X+l 
520  IF  Y>2  AND  INKEY^0  5-0  THEN  Y-Y-l 
530  IF  Y<9  AND  INKEYf2)=ø  THEN  Y-Y+l 
540  IF  INKEY<  9  5-0  THEN  U<X,Y5«1 
530  IF  INKEY<  79  )-0  THEN  U<X,Y)-0 
560  IF  INXEY( 16  5-0  THEN  GOTO  190 
570  IF  INKEYC27  5-0  THEN  GOSUB  610 
580  IF  INKEY< 185-0  THEN  GOSUB  630 
390  IF  INKEY( 53  5-0  THEN  GOSUB  830 
600  GOTO  43ø 

610  IF  INKEY( 60  5-0  THEN  RETURN  ELSE  610 

020  REM  *********  SAMMENTAELL INC  AF  KOOER  ********* 

630  CL8  il -PRINT  il -PEN  01,1 
640  FOR  A-2  TO  9-SUM-Ø 
650  IF  IX  2, A 5-1  THEN  SUM-SUM -M 28 

660  IF  LK3.A5-1  THEN  SUM-SUM+64 

670  IF  LK4.A5-1  THEN  SUM-SUM+32 

680  IF  U(3,A)-1  THEN  SUM-SUM+16 

690  IF  U<  6 , A )- 1  THEN  SUM-SUM+8 

7øø  IF  U<7,A5-1  THEN  SUM-SUM+4 

710  IF  U<8,A5-1  THEN  SUM-SUM+2 

720  IF  U<9,A5-1  THEN  SUM-SUM*  1 

730  PRINT  il, SUM;  NEXT 
740  RETURN 

750  REM  *********  STORE  BOGSTAVER  ********* 

768  FOR  N-l  TO  LEN<  Mt ) 

770  FOR  T-0  TO  7 

780  P-PEEK  '!<A5øØ*'RSC<,MIDt'Mt  .N,l>>-32  5t8+T5 

798  LCT5-P  NEXT  SYMBOL  140,L<B),L<0>,L<  1  > . LC 1  >,L<2>.L<2>,L<3>,L<'3> 
800  SYM80L  141,U4>,L<4>,L<3>,L<5>,L<6>,L<6>,U7>,L<7> 

810  PPINT  CHRtC  140  5+CHRt«'  10 5+CHPt' 8 •'♦CHPt<  141  '♦CHPt''  in;  NEXT  RETURN 
828  REM  *********  FARVER  ********* 

838  PEN  1  LOCATE  1.12 -PRINT  " 

840  PEN  l'LOCATE  1-12  INPUT  "BORDER?  ".H  IF  H^S  OP  H^Ø  THFN  830  FIS! 
850  PEN  l'LOCATE  1,12  INPUT  "PAPER?  ",HIF  H>26  OP  H^ø  THEN  850  ELS! 

860  PEN  l'LOCATE  1,12  INPUT  "PEN  1?  - .H  IF  H*^26  OP  H'Ø  THEN  868  FLSf 

878  PEN  l'LOCATE  1,12« INPUT  "PEN  2?  ".H  IF  H>26  OP  H'ø  THFN  870  FLSf 

888  PEN  l'LOCATE  1 , 12  INPUT  "PEN  3?  ",HIF  H>26  OP  H'ø  THFN  880  ELSf 

898  PEN  1 


"  H  IF  H>?6  OP  H^Ø  THFN  830  F!  SF  BORDER  H 
" , H ' IF  H>26  OP  H^Ø  THFN  850  ELSF  INK  ØH 

“  .H  IF  H^26  OP  H^Ø  THFN  S6ø  FLSF  INK  I  H 

"  H  IF  H>2*  OP  H'Ø  THFN  870  FLSF  INK  2  H 

"  H  IF  H>26  OR  H-fø  THFN  880  ELSF  INK  3.H 


LOCATE  1.12  PPINT"KAPAKTFPFN  "♦rHPt^243>;  RETURN 
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CPRChec 


■  Dette  program  udskriver  al¬ 
le  de  muligheder,  der  er  tor  de 
4  sidste  citre  i  et  CPR-nummer. 
Når  tødselsdatoen  og  ens  køn 
er  opgivet,  skal  man  indtaste 
starttallet  tor  de  4  sidste  citre. 
Man  kan  så  checke  at  ens 
CPR-nummer  er  lovligt .  □ 

Lars  Christensen 


lø  '"Check  CPR-numre .  fri  (y?  L CSof  t. 

2ø  MODE  1 

30  INPUT  "Hvilet.  aar  er  du  fodt  =  ".3 

40  I F  a<19øø  OR  a>1935  THEN  PRINT  CHR*«'  7  >r:HR*<f  1 1  -  GOTO  30 

50  INPUT  "Hvilken  ni?  s  ned  er  d"  fodt  "  .  m 

6ø  IF  m<  1  OP  ni  >12  THFN  PPI  NT  OHR*'  7  >CHP*<  1  O ;  =  GOTO  50 

?ø  INPUT  "Hvilken  d* o  er  du  fodt  "  . d 

00  IF  d< 1  OR  d>31  THFN  PRINT  CHP*f 7 >CHR*< tt  ) ; = GOTO  3ø 

90  PRINT  "Er  du  M’'  and )  eller  vinde)  f  "; 

100  k*=UPPER*f INKEY*>= IE  k*=""  THFN  100 
110  IF  k*="M"  THEN  k=l^C0TO  140 
120  IF  k*="K"  THEN  k=ØG0TØ  140 
130  PRINT  CHR*f 7  ) : = GOTO  tøø 
140  PRINT  k* 

150  INPUT  "Udskrift  fra  nummer  «  ",  start* : start=VRL<  start*  i 

16ø  WHILE  LEN<  start*  V4  * start*="0"+start*  NEND  ■  start*=LEFT*<  start«,  4  > 

170  IE  VfiLf  start*  ><  >start  THEN  PRINT  CHR*-'  7  >CHP*f  1 1  > ;  GOTO  150 
18ø  PRINT  "P<  rinter  )  eller  S<kaerm>  =  "; 

1 90  k *=UPPFP*<  I NKEY*  > TF  k  *=  "  "  THEN  1 90 
200  IE  k*="P"  THEN  *=8G0T0  230 
210  IF  k*="8"  THEN  s«ø=G0T0  230 
220  PRINT  CHR*<  7  >.•  'GOTO  190 
230  MODE  1 

240  PR I NT#s. "Udskriften  er  for  en  " s : IF  k=l  THFN  PRINT#« . "mand"  FISE  PRINT#*, "kv 
inde" 

250  PRINT“Fodt  den"d"i"msa 

260  da.te=4^f ds- 1 0 >+2:#C d  MOD  10>+2*< mM«Wt(ni  MOD  10>+6*<<a  MOD  løø)\lø)+5*<a  MOD 
10) 

270  k 4=VflL (  M I D*<  start* ,  1 ;  1  >  >*k 3=V8L /  M I D*<  start* ,  2,1 >>« k 2=Vfll .<  M T D*<  star* ,3, 1  >  >*kl 

=VflL< MID*< start*, 4 , 1 ) > 

280  IF  k=ø  THEN  kl=kl  AND  254  ELSE  kl  =-f k t  fiND  :?54>+1 
290  ok=<<'date+4*k4+3*k3+2*k2+kl  >  MOD  11  >=0 

300  IF  ok  THFN  s*=M  T  D*<  8TP*f  k  4t  1  øøø+k  3T 1  Øø+k  2T  t  ø+k  1.  > .  2  > :  MH I  LE  LENC  s*  )<4  s*="0"+s 
* :  NEND  :  PRINT"  "+«*; 

310  k 1 =k 1 +2 : I F  k 1 < 1 ø  THEN  290 


TF  k=l  THFN  PRINT#*, "mand"  FISE  PRINT#*, "kv 


320  k 1 =k 
330  k2=0 
340  k3=0 
350  END 


k2=k2+l : IF  k2< 10  THEN  290 
k3=k3+l : IF  k3< lø  THEN  290 
(,-4=1,4+! :  tf  k4<5  THFN  ?9ø 


Joypainter 


Dette  fantastiske  program  til 
Commodore  64,  der  i  øvrigt  er 
brugt  til  et  al  forsidebilledeme, 
er  lavet  i  BASIC .  Det  skal  man 
dog  ikke  lade  sig  nane  at, 
idet  programmet  laver  sig  sel¬ 
vom  til  maksinkode  i  løbet  af 
kun  6  minutter. 

Programmet  giver  dig  mulig¬ 
hed  tor  at  tegne  de  utroligste 
ting,  og  med  fantastisk  man¬ 
ge  smarte  kommandoer: 

F1  =  Fyld  et  aflukket  områ¬ 
de,  med  en  farve. 

F3  =  Skifter  baggrundsfar¬ 
ven. 

F4  =  Skifter  kantfarven. 

F5  =  Loader  et  savet  bilide 
(OBS!  virker  kun  når  turbota- 
pe  ligger  i  hukommelsen). 
F6  =  Save  billeder  (også 
med  turboen  inde). 

T  =  Tyk  skrift. 

Y  =  Tyk  skrift  i  Y-retning. 

L  =  Linie  (tryk  L,  flyt  tegne- 
krydset  og  tryk  fire.  En  linie 
tegnes  mellem  de  to  punkter. 
R  =  Rubber  (viskelæder), 
sletter  istedet  for  at  farve. 

N  =  Normal  skrift  og  fart. 

F  =  Fast  sætter  skrivehastig¬ 
heden  op. 


5  RFM  ****************************** 


*** 

7  F'OKE  5328 1,0: POKE  53280,  ø 
tø  PRINT  "VENT  6  MINUTTER" 

FOR  0=ø  TO  121 : RERB  Q*:F=0 
FOR  01=0  TO  18  STEP  2^0=0 


2ø 


25 

3ø 


4ø 


FOR  B=1  TO  3 : B  <  B  >  =flSC ( M I D$  03  J , 

1 . 5*0 1+B,  1 ')  >-48 :  IF  B<B)=-15  THEN 
B<B>=10 

Q=Q+B<B)*41T<B-1) :F=F+B(B) :NEXT 
POKE  32768+0*20+01 , Q/256 


: POKE  32769+0*20+01, 

Q- 1 NT  <  Q/256  >  *256 

NEXT : F=F  ØND  15 : G=ØSC(RIGHT$03$, 


l>>-64 

5ø  IF  FOG  THEN  PRINT  "BØTØ  ERROR  IN 
" PEEK ( 63  >  +PEEK  <  64 ) *256 : FF=FF+ 1 
6ø  NEXT : I F  FF>ø  THEN  ENB 
70  ø$= " ( SORT ) SVS33792 " +CHR$  < 1 3  > 

8ø  POKE  198,  lø ;  FOR.  0=1  TO  10 

:P0KE  630+0 , ØSO ( M I DSC 0$ , 0, 1>>  NEXT 
2048  DØTØ  ; øø891S3ø?J7? ! 8000S10PLM9N 


IF8DK 

2068  DØTØ  UøE?V5?F193V?V5E@DLHl i 
MU04VD21B 

2088  DØTØ  DC63PU;;IME?E8D<; 


INE7FØD4NXFNJ 

2108  DØTØ  @eøøBNFBHB@ø6<H3!6F!DC2EO; 
7SØL 

2128  DØTØ  i 30W2 1 LE 1 BP5H ! D37GW5 1 K< 1 20 
6!UIM 

2148  DØTØ  4B2=;I=M3MXø!=VB5V; 

5 1 2W4QØVT7GM 

2168  DØTØ  S<; !UI4B275I=M3XXU54LØQKF5 
V9LØØ 

2188  DØTØ  8VKH>PC9LEKHQIH? ! 6=<DMIH? ! 


6«DC 

2208  DØTØ  MIHS?6XDS<;S<;; 

<DCØ JN<øLE 1 LH 1 B 

2228  DØTØ  I3<‘HKHWHKX0>BØKGØNQ0BM>MB 


V07VB 

2248  DØTØ  9 !  VNRUSøV !  30ES5006K.76171LØ 


VPJØC 

2268  DØTØ  4QJG>i P42H26001 1QJ12SPK032 
S>TNK 


2288  DØTØ  ØMSBG2EKH27H76 101 NP<7QFN=2 
6646N 

2308  DØTØ  =03>BøN61KG; 

04<N0K67 I B22 J70N0KH 
2328  DØTØ  47HCØ J J?093L8XH<4KH i 
I7F10V59Q5H 

2348  DØTØ  KONU JU9X59X5SR50LMJ901 MØRN 
ØIJ81L 

2368  DØTØ  406 IL ! P ! @0Q0D9FFM> ! 30607KL 
>PS>F 

2388  DØTØ  JUVH=L50>00 I H8D9N I GSD3MHEK 
IF<V@ 

2408  DflTØ  SG0!7S0SRMQ0=M>VLø3=lNø6?C 


V930K 

2428  DØTØ  OCVFCVSGO ! 7S0SRMQ0=M> -JXPPH 
QG!  10 

2448  DØTØ  ! 5BøV4=C 1 R299M2VN I XCES005X 
PBC3D 

2468  DØTØ  XX4X?  1 JSDXØH !  4DSMH00D2XHG 
IRS40 

2488  DØTØ  QO 1 8WVCS2SQ0= J > 
6K1P0S3T4CL1EØ.:  C 

2508  DØTØ  5M , DC 1 MCØWP99N I 7DE700565GV 


4=C1E 

2528  DØTØ  ØLøN@DFM>L9ø8=3 ! NIMCEPHQL9 


ØH26R 

2548  DØTØ  9N I 3DEHM0R9F<5 I ØM3B=6= , 


0=5IØM3E 

2568  DØTØ  MUø I 077003508 J>4FV@?HKØJ@8 
ØGØØE 

2588  DØTØ  ØØØW9 1 RNøÉ@øL4øER2 I 8404N48 
1 !  ILD 

2603  DØTØ  KFTK0NK.PUF22>9D7TøG90HQ07F 
ØNØDE 

2628  DØTØ  67JEM07FØH267052XVMX4 I L • 
HDØ=15I 

2648  DØTØ  NJNSK03?HLØE4D1=0<5SØV ! <H= 
L.:  LNJ 


2668  DØTØ  GK0QG,E12W050C1?50XHI=; 
ØECØSMRF 

2688  DØTØ  37GGØøECø24T37G2NøECøK>G3 7 
Gl>10 

2708  DØTØ  ECØXKQPOSPMSØ ! 6UK00U4GT 1 OM 
KPøøF 


44  && 


S  =  Slow  nedsætter  hastig¬ 
heden. 

P  =  Printrutinen,  dumper  et 
skærmbillede  til  printer  (MPS 
801). 

CLR/HOME  sletter  skærmen. 
CTRL  +  (1-8)  giver  i  arve  skift. 
Og  altsammen  i  rent  maskin¬ 
kode. 

Håber  du  får  fornøjelse  ud  af 
dette  virkelig  anvendelige 
tegneprogram. 

Gorm  Salomonsen 


2728  DRTR  Q7<2L  > =C 1 B30H ! 2MCE67P6NØFC 

ER?PD 

2748  DRTR  =I?ØTøøøIRCER?P4?21P3JNIDC 
E2>Pfl 

2768  DRTR  71S4RI50NXPJE ! 0 ! N>QGø4riøD9 
03EØF 

2788  DRTR  >6N<5 1 PK06 1 S 1 0>  I  @ø>RNP@ø=R 
øR>@B 

2808  DRTR  INIØS6EJQLI3XN3QK9KGU=X41N 
18NSØ 

2828  DRTR  S7K0MKBNISGEø>24M; 602RH; 
?X1HM;D 

2848  DRTR  GI 15010TK1X4CI 1N70CI 1XEØQ0 
1B2ID 

2868  DRTR  0I1K8>JKEQ0G2HWUJ4K9NI8?D9? 
B37DJ 

2888  DRTR  0?D1?B4?D8J>TN9FKH@GKJK8L< 
øRCSR 

2908  DRTR  2860JøflWV8PMFHLKG250>P0SlN 
SK !  ØE 

2928  DRTR  8BL7VRXPF7VEKEKJFT ! CUPKOBH 
PKONK 

2948  DRTR  SJSU=S0HJIJ=S71  JSJS@7LFKH@G 
KJK8G 

2968  DRTR  F'ØØ; >ø<VVNP0K0N50TD5I4QNTK 
0E5IC 

2988  DRTR  50NIFTVU4MR1WK1TK; 9C1 ; 
0>@R2?flØH 

3008  DRTR  UX4M0 1 EU>0= 1 NF06BØWX4L0 1  F@ 

øecøm 

3028  DRTR  4L8LV4N91Q9F ! X49<1 JS5SK0GX 
47<1H 

3048  DRTR  <T502?4Mø ! 305R5 1 T 42MH5R I <U 
GS  V 1 R 

3068  DRTR  øH2fl  I  XlKH>Q  I  HØBRN  I JØB  1  ?H? ! 
D= !  DH 

3088  DRTR  <4KF9F !  PB>2V3EVTPVJQ0 !  NID,. 
DRNID 

31 ØS  DRTR  E; DBGIF; DJNIG; 

DHS'LflR  1 B5PCGNBC30 
312S  DRTR  I >U<Ofl 1 32X< ; KH= JV93V ; 

RF ! 49HHT4R 

3148  DRTR  HT4HT49T 43  J 1 QEDFH056501  .NPI 
OR!  TE 

3168  DRTR  JP03I<N?øQl?PK=H?ø=H>GU<9L 
ØKL>0 

3188  DRTR  GT>40< ! VØWK17I ; 4D1X; 
EHDØGWJXJND 

3208  DRTR  QKOFG; = ! 2VDFHDøE6N=LNQK0KK; 

!  D2D 

3228  DRTR  Q9IQS03<71 1 121 133F3J>F1<@T 
4E=20 

3248  DRTR  H079NIH<DB<D6QIR<DJ7ILFT3T 
IIHEH 

3268  DRTR  E12<SIPQ0=; IRX4WU103VØPL86 
DHL>  I 

3288  DRTR  2@riPK0;  8N5øKRM>PD<NNPHØD2ø 
57U1B 

3308  DRTR  ø ! VNHPløDFr024ø>JøIR67E65H 
2KUIJ 

3328  DRTR  C<VIM<1 ; i 3I7D<D8J>M4K<5IH2; 
DDøH 

3348  DRTR  9NIE<DRX4WX15SMJFT?6NLQ05R 
I71SE 

3368  DRTR  5øNLGTRX4WX15SMBGT>6HRK061 
SSKOØ 

3388  DRTR  >QIHV4P424BØE@ø@flØJHN>Sø@0 
95?flJ 

3408  DRTR  >6NRX4WX1 CHP ! H ; 

CL1X ! KE ! DNØD97IB 

3428  DRTR  VKNV00IU?; EØD ! D9NI=JIG<DRX 
4WX1F 

3448  DRTR  5SMX<15; =H3=WIØMFTØJ>0FTGW 

4332F 

3468  DRTR  fiX<C==3ø«5PSGN4B04@<=5I01 
I7W4G 

3488  DRTR  832; =øV9F86DNL>20MPK0; 
8N5øKRM>J 

3508  DRTR  PD<FNI !  UIH>GCN>HFØ»04L8>5 
IT4;G 

3528  DRTR  CXI ; =16>VQ<7S<; 

QQ03 ! 6WK0 ! HI8J>K 

3548  DRTR  FNI86DFM»20I56LR70BS2QMG@ 
DUI5D 

3568  DRTR  PKKSI17H1<EØ>20RCSRI>00000 
I97DH 

3588  DRTR  9N I 87DP05F928 ! ØTLØXR V J6NFK 
HMX4C 


3608  DRTR  =VVH91 1UP9NIG@DØ<DØ ! IIØD1 ! 
IJØDD 

3628  DRTR  KKH1?H>4KWØI0H12H2SG?LU4> ! 
2MG2E 

3648  DRTR  971 IH8PX48629; 

R8Q0BM>f'1FV  1 7 1 P7 1 L 
3668  DRTR  VE2<FVøl@2@6I@DB; 

I JX?J@D10>2HVN 

3688  DRTR  R ; 1 7 ! 6>K8T3 1 9C 1 3GVØDS I ØD ! Q 
JR:  10 

3708  DRTR  >K8 I K9N I V JQ VD90GQVF ; 
<E8<P71R<8J 

3728  DRTR  F; «FVQX?I@D7VE<7S97S7; 
løJNFLOR 

3748  DRTR  XX4B923GVSCSI@DXPJD<N7 ! 681 
N2L0J 

3768  DRTR  fl;  I>K8UH8NI VJQVD9ø<NV>X42T 
V20MK 

3788  DRTR  NØDVX4 ! VVR>ø9NIG@DVX4UUVFN 

ikl;h 

3808  DRTR  XRVMR71 ! IRN37R4QQV035UT7FN 
IVX40 

3828  DRTR  XRVG=STN37UMQP4HCV ! 3ø5=V6R 
9W<VB 

3848  DRTR  7 ; HSGHRQUR ; I H JHPB7 I 05072 I W 
4TU1I 

3868  DRTR  UH 1 1 VLGNE60 1 ØL02RS2CN0NE 1 N 
1CV4L 

3888  DRTR  J01GRØFRSJ; <JU4CRV=VL; 
RP4UVØN I O 

3908  DRTR  E2H?SPEQ00BD4PLNE2<øø2CSøW 
1CBUF 

3928  DRTR  80 I E90QP0>=V9FNBC3E0 I XCESO 
0184K 

3948  DRTR  9M2P0 I B90QP0>=V5XPBC3VN I XC 
ESOOH 

3968  DRTR  R299M2G= IØPLMS1 2HC9R 1 LN4XR 
VRSRF 

3988  DRTR  ;  KTG=IHLI9R14=6HI  IGJIJ14=6>K 
N3QJG 

4øø8  DRTR  HJN7VE0!65=B=R1 øøøøøø J4K4G 
899  ID 

4028  DRTR  ?B2EK3HØØØØØSJ3HØØØØØSJ3HØ 
øøøøN 

4048  DRTR  SJ3HøøøøøSJ3Hø096øG=SRWV8R 
VSJ3E 

4068  DRTR  HØØØØØSJ3HØØØØØSJ3HØØØØØSJ 
3Høø@ 

4088  DRTR  øø@S J3HøøøøøM<ø9R 1 =0øB52N> 
39U4B 

4 1 08  DRTR  6 ! MJGT= ! M4GTE=MØGTF ! MUFTHU 
GFW1J 

4128  DRTR  @3=15RPK0?8HL.I; 

H02WR2EKH00 I HUGO 
4148  DRTR  0U1CX10BDLI; 

I  ?25«4UVE2H?SP0Q0L 
4168  DRTR  TKHØPLRV 1 TX45 ; 

ØSX4 1 C 1 OQØKONRDT 0 

4188  DRTR  L4øl52IØøL9øKB2=NIH@DP0I J@ 
D17HC 

4208  DRTR  = ! D? ! D<4KF9FSGN>2VGQVDCV?D 
VQ>1  J 

4228  DRTR  7 1 1 N I Q7VSHØ 1 VWPFDVDKR J ØF  B5 
PNHIL 

4248  DRTR  XCESOO 1 849M24S I VCEEL07HT8J 

X38C 

4268  DRTR  =?H7H; VH2<38D?HHQ0P0I JØD=N 
IHØDD 

4288  DRTR  1 ?H= ! D? !  I04KD9F ! RE>2VGQVDC 
V7DVJ 

4308  DRTR  Q>1?1 1NIQ7VS4H000Q10Q<N3BC 
3VNIM 

4328  DRTR  X CES0QR299M2?M>XL9; 
1LXØHCM9VG2F 

4348  DRTR  BM> ! 7øOG2>I 1930S=MC60TX4X< 
1IJ>ME 

4368  DRTR  Bøl ! 70QP4480JLDØNIC ! D9LSFN 
KFEE 

4388  DRTR  IØØBE1R ! NJ@FB5PXNI>EE@LøS= 
<20 1 G 

4408  DRTR  REERLØD9?UKH?PLOU1>TOTH8M 
0=710 

4428  DRTR  MKR9XGRRØVG200IE; DXOIG; 
DSØS0I6H 

4448  DRTR  4W67P6N77UEE4HØØF7XE7VEERJ 
ø<ORK 

4468  DRTR  RU4PBB1W7D98<X4RD22L; 
<BlLV9øUøK 
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■  Du  er  Harrison  Ford  -  den 
store  helt  der  ikke  går  at  ve¬ 
jen  tor  noget  som  helst. 

Jagten  på  det  forsvundne 
guld  er  gået  ind,  og  du  skal 
hente  tre  bægre  at  guld  for  at 
fuldføre  din  mission. 

Når  du  henter  bægrene,  er 
der  farer  overalt  -  et  sted  er 
der  en  faldlem,  et  andet  en 
dødsflise  samt  adskillige  an¬ 
dre  dødbringende  farer. 

Efter  de  tre  første  bægre  tap¬ 
pert  er  bragt  i  hus,  går  du  vi¬ 
dere  til  næste  bane. 

Styringen  foregår  via  pileta¬ 
sterne. God  jagt.D  Jesper  Dein 


Z.- 


SPEC- 

T~1 

TRUM 

RS 

►.-< 

M 

i  C? 'O  J 


a  LET  yp  =  0 ;  GO  TO  løOO 

2  BORDER  2:  FOR  n =0  TO  31:  FQ 

R  m =c  tc  21?  print  AT  m,n.  O" 

3  NEXT  f»  :  NEXT  l> 

10  LET  Z  =2 :  LET  X=l  LET  P =0 
12  LET  f  1  =  2  +■  INT  TRND*5)  LET  f 
2=3+ I NT  CRND*5> 


Z=2:  PRINT 


J3  (PgIHT  fiT  PHFLR  ø;  IN 

si  1f  ypSØ  THEM  PRINT  HT  3,«i" 
NU  ER  DU  HRRRISON  FORD, DER  5KRL 
PRR  SKRTTEURGT  FØRST  SKRL  DU 
HENTE  3  GULD-SKHRLE7MEN  PRS  PRR 
' DØDS -FLISEN MEN  PRS  OGSRR  PRR 
FRLDE  LEMEN  INDENFOR  DEN  ONDE 
CIRKEL, NRRR  DU  HRR  GJORDT  DET 
KOMMER  DU  DIDER  TIL  NREST E  BRNE . 

TRYK  P";  PRUSE  0.  PRUSE  0.  CLS 
:  LET  yp*l:  GO  TO  2 

29  FOR  n  =  10  TO  20;  PRINT  RT  7, 
n;  "  .  " ;  NEXT  n 

30  FOR  t=10  TO*  20;  PRINT  HT  17 
, t : " . " :  NEXT  t 

31  FOR  f=7  TO  17;  PRINT  RT  f,l 
0; “ . “ :  NEXT  f 

32  FOR  b=7  TO  17:  PRINT  RT  b,2 

0;".”;  NEXT  b  _ 

ypM 

LET  f 

i b7 + INT  (RND *9} 

Al  IF  fi  =15  RND  f=li  OR  f  i  =15 
RND  f  =15  THEN  GO  TO  AØ 

A2  IF  f i =10  RND  f=lA  OR  f  i  =10 
RND  r=16  THEN  GO  TO  AØ 

A3  PRINT  RT  0,23;  PRPER  1,  INK 
7; “MEND=ft*ft" 


50  IF  INKEYf="8"  THEN  LET  X =X ♦ 
1:  PRINT  HT  Z,X-1;“D"  _ 

55  IF  INKEY$  =  "5*‘  THEN  LET  X=X- 

1  S^IF7  INKEY#  =  ”7^  §HEN  LET  Z*Z- 

1:B?R^I^il^<-''VHEN  LET  Z*Z  + 

i:  print  rt  z-i,x;"D” 

se  IF  Z  =1  THEN  LET  Z =2 :  PRINT 
RT  2,x;"D"  _ 

59  IF  X =0  THEN  LET  X =1 

60  PRINT  RT 

61  LET  U=I+INT  (RND»5) 

62  LET  y  =  1  i- INT  (RND*5.1 

63  IF  KU1  THEN  GO  TO  510 

6A  IF  Z=10  RND  X=15  THEM  LET  Z 
=9:  PRINT  OT  Z,X;“ft":  PRINT  HT  1 

®'65;IF  Z  =15  RND  X*IS  THEN  LET  I 
=16:  PRiNT  RT  z,x;  S";  PRINT  RT 

1B705IF  1  =  12  RND  X  =  15  THEN  BEEP 

'  17l‘  IF^sl’flND  Z  =2  RND  X  =  1  THEN 
BEEP  .1,7:  LET  p O =p O Fl :  PRINT  fl 
T  0,po;  INK  e;  PRPER  0;  :  LET 

p-0:  LET  n=2  +  INT  (RNDA5J  :  LET  f 
2*1  +  INT  (RND#5J  ;  PRINT  RT  12,15; 

PRPER  0;  INK  6;"f":  LET  f=10+IN 
T  (RND *9) ;  LET  Ei=7+INT  <RND*9> 
73  IF  P0=3  THEN  GO  TO  500 
100  IF  z  =  f  i  RND  X  =  f  THEN  GO  SUB 
AØØ 

110  IF  U=1  THEN  GO  SUB  300 
120  IF  y  =1  THEN  GO  SUB  SS® 

129  IF  Z  =  fl  RND  X  =  r 2  THEN  LET  H> 

and  =p«nd -1 :  PRINT  RT  0,»;  PRPER 
1;"  :  LET  W=W-1:  IF  W  <28  THEN  G 

O  TO  710 

130  IF  Z  =  fl  RND  X  =  f  2  THEN  BEEP 
.1,6:  BEEP  .1,7:  IF  »and<=®  THEM 

LÉT  a$="DU  HRR  GRRET  PRR  EN  DØD 


S-FLISE":  FOR  n  = l  TO  LEN  a«:  PRI 
NT  RT  5,n;a$(n  TO  n):  BEEP  .l,n: 
NEXT  n:  GO  TO  710 
200  GO  TO  50 

300  FOR  n»ll  TO  14:  PRINT  RT  n , 
14.;".";RT  n  -l ,  14.;  "Q"  ■  beep  .®i,n 

301  IF  Z=«  X  =14  THEN  LET  p  = 

0  .  PRINT  RT  12,  15;  BEEP  .  1  ,  - 

2:  LET  Z=2:  LET  X»l:  LET  »and<»» 
nd-1;  PRINT  RT  0  ,  W ;  PRPER  1;"  " : 

LET  «=w-l:  IF  *sndi=B  THEN  SO  T 
O  7 10  _ 

303  NEXT  n.  PRINT  AT  i<f ,  14 :  "O"; 
RT  10,1  1 

310  RETURN 

350  FOR  n  =  11  ro  14:  PRINT  RT  n, 
16;".";RT  n-l,i6;"0" 

355  BEEP  . 01 , n 

360  IF  Z  =n  RND  X=16  THEN  LET  P  = 
0:  PRINT  RT  13 , 15;  "t "  ;  BEEP  .  S.  ,  - 
2:  LET  Z  =3 :  LET  X  =1 :  LET  I»and=»a 
nd-1:  PRINT  RT  0,»;  PRPER  1;"  " : 

LET  w=w-l:  IF  l»and<=ø  THEN  GO  T 
0  710 

370  NEXT  n:  PRINT  RT  14,16;  "□" 
377  PRINT  RT  10,16; 

360  RETURN 

400  PRINT  RT  Z , X ;  PRPER  2;  FLR5 
H  l;  FOR  fs©  TO  20.  BEEP  .1, 

f\  NEXT  f  PRIMT  RT  Z,X;*D".  IF 
W<28  THEN  GO  TO  700 
402  PRINT  RT  0,w;  PRPER  1!*'  •• 

404  LET  Z=l:  LET  /si.  ' 

405  LET 

,  407  Ler  f  »XØftlNT  tRm>*9)  :  LCT  t 
1  i  «7  4INT  (RND *9] 

[  410  RETURN^ 

1  "X«T^14^S^^  ••  i  ^ 
BEEP  2,2:  PRINT  RT  13,85;"  "jRT 
14,85;*  BEEP  8,1:  PRINT  RT  13 
,ae;"  RT  14,26;*  BEEP  2,2: 
PRINT  AT  20,0;  FLASH  1; "PORTEN  E 
R  ARBEN,  GRR  DER  IND  !  !  "  :  LET  U  = 
1:  GO  TO  50 

510  IF  Z =14  RND  X=14  OR  S =14  RN 
D  X=«S  OR  Z  =14  RND  X -86  THE N  CL5 
:  GO  TO  7000 

521  IF  Z<>  1+  RMO  X-:>84  OR  X  <  >  14 
RND  X<>85  OR  Z<>14  RND  X<>86  TH 
EN  LET  klsl:  OO  TO  5ø 
588  GO  TO  50 

700  PRINT  RT  10,0; "ha  ha, der  fa 
Idt  do  not  i  9ift-  suns*  hott« 
t  II" 

709  BEEP  1,10.  PRINT  RT  Z,x;  OP 
EN  Bi;  PRPER  2; 

710  INPUT  "EN  NY  SKATTEJAGT  7  " 

720  IF  Z*-"J"  THEN  RUN 
730  CLS  :  STOP 

1000  POKE  USR  “O", BIN  1111111 
1010  POKE  USR  "U  "  4 1 ,  B IN  1000001 
1020  POKE  USR  "U" 42, BIN  1000001 
1030  POKE  USR  "O" 43, BIN  1000001 
1040  POKE  USR  "U " +4 , BIN  1000001 
1050  POKE  USR  "O" +5, BIN  1000001 
1060  POKE  USR  "U "46, BIN  1000001 
1070  POKE  USR  "O "47, BIN  1111111 
2000  POKE  USR  "n ",  BIN  01111110 
2010  POKE  USR  “n"41,BIN  01111110 
2020  POKE  USR  "n"42,BIN  01111110 
2030  POKE  USR  -n"43,BIN  01111110 
2040  POKE  USR  “n" 44, BIN  00111100 
20SØ  POKE  USR  "n" 45, BIN  00011000 
2060  POKE  USR  "n" 46, BIN  00011000 
2070  POKE  USR  "n “ 47 , BIN  00111100 
3000  POKE  USR  "p",BIN  OOØØØØØØ 
3010  POKE  USR  "P "41, BIN  00111100 
3020  POKE  USR  "P " 42 , BIN  01111110 
3030  POKE  USR  "p"43,BXN  01011010 


”U"46,BIN  1000001 
"U " 47 , BIN  1111111 
•n",BIN  01111110 
"n"41,BIN  01111110 


3040  POKE  USR 
3050  POKE  USR 
3050  POKE  USR 
3070  POKE  USR 
3100  POKE  USR 
3110  POKE  USR 


"p " 44 , BIN  01111110 
"P“45,BIN  00111100 
"p" 46, BIN  00100100 
"P " 47 , BIN  00111100 
"  f " , BIN  00011000 
"f "41, BIN  00011000 


3120  POKE  USR  " / " 42 ,BTN  01111110 
3130  POKE  USR  "f" 43, BIN  01011010 
3140  POKE  USR  “ f " 44 , BIN  00111100 
3150  POKE  USR  "f"45,BIH  01100110 
3160  POKE  USR  "f" 46, BIN  01100110 
3170  POKE  USR  "f "47, BIN  01100110 
4000  OO  TO  2 
7600  LET  Z  =  14:  LET  X =2 
7B10  LET  11=14INT  (RND*15) 

7811  LET  jl)  =  10 :  LET  p 1 =0 
7820  LET  12=54INT  (BNDJ10) 

7621  BORDER  2:  PRPER  S:  CLS  :  PR 
PER  5:  INK  0 

7822  LET  p5=RND:  LET  an =3 

7900  FOR  n  =  15  TO  81:  FOR  » =0  TO 
10:  PRINT  AT  n , ■ ; :  NEXT  ft :  NE 
XT  n 

7901  PRINT  AT  0,0. _ INK  g;  PAPER 


7910  FOR  n  =15  TO  21,  FOK  a -20  TO 
31;  PRINT  AT  n , ft ;  .  NEXT  E.  N 

EXT  n 

7993  LET  g  l  =124lNT  (RHP»e.'  .  LET 
9t=12+IMT  (RND*3> .  LET  f9=124XNT 

IHNDF8J 

7999  PRINT  AT  21  ,9t  ; |  fiT  21  ,-3fc 
;  "#**;  at  21 ,  rg; 


IF  X=0  TH 


8000  LET  P=14INT  IHNCT6I 

8005  PRIH1  HT  Z.XI'ft" 

8006  PRINT  AT  21,23;  PAPER  7;  "ME 
ND=" ; »n 

8010  IF  INKEY*="8"  THEN  LET  X =X 4 
1:  PRINT  HT  Z,X-1;"  " 

8011  IF  INKEY  « =  " S "  THEN  LET  X »X  - 

1:  PRINT  AT  Z,X41j"  " 

0050  PRINT  AT  Z,  X, 

8071  LET  X 1  =1 4INT  fRWD*15.»:  LET 
X  2  =  5  4 1 NT  (RND  * 10 ) 

8090  IF  X=ll  THEN  GO  TO  8100 

8099  GO  TO  8120 

8100  FOR  n=Z  TO  21::  BEEP  . l,n: 
PRINT  AT  n , x ; "a" ; AT  n -1 ,x ; "  " 

8110  NEXT  n:  BEEP  1,7:  PRINT  AT 
n-i,x;  "••• 

8111  IF  nn>0  THEN  LET  z =11 ;  LET 
X  =2 :  LET  en=ftn-l:  GO  TO  8120 

8112  IF  Mn  =0  THEN  GO  TO  710 
8140  IF  p=l  THEN  LET  pi=i 

8150  FOR  n  =3  TO  15:  PRINT  RT  n,p 
5;  " ;  RT  n-i,p5; "  " 

'®"  THEN  «-ET  X  =X  4 
1:  PRINT  HT  Z , X  —1 ;  "  “ 

8158  IF  INKEY*  =  "5"  T HEN  LET  X *X - 
li  PRINT  RT  X , X  41;  "  “:  IF  X=0  TH 

8153  PRINT  AT  z,X,"ft" 

8154  IF  X>10  THEN  GO  TO  8100 

8190  IF  n=z  AND  P5=x  OR  n=Z  AND 

P=X  THEN  BEEP  .1,15:  PRINT  AT  S, 
XJ  LET  ju  =  JU4l 

8191  IF  JU  >20  THEN  GO  TO  8400 

8192  PRINT  RT  15, 

8200  NEXT  n:  LET  p =0 :  PRINT  AT  1 
5 , 0 ;  “■■■■■I"  :  BEEP  .01.7:  LE 
T  P5=24INT  ( RND  *6 ) 

8300  GO  TO  8005 

8400  PRINT  AT  3,0;  PAPER  U;  INK 
6;  FLASH  l; “NU  ER  UEdEN  TIL  SKAT 
TEN  KLAR,  GAB  OUEn  BROEN , OU  ER 

DR  IKKE  BRNGE  FOR  DE  AFDØDE 
AANDER  TT 

8401  PRINT  RT  6, 10; "TRYK  p":  PAU 
SE  0:  PAUSE  0 

8405  PRINT  RT  3,0;“ 


8406  PRINT  RT  6,10;" 

8410  LET  Cd  =  14INT  (RND  42) 

6420  IF  INKEY*="B"  THEN  LET  X =X 4 
1:  PRINT  RT  z,x-l; "  " 

8421  PRINT  RT  Z,x;"*" 

8423  IF  X  <9k  THEN  GO  TO  8420 

8424  IF  x=9k  RND  cd=l  THEN  GO  TO 
8430 

8427  IF  X  <26  THEN  GO  TO  8420 

8428  IF  Cd =2  THEN  GO  TO  8450 
8430  FOR  0-20  TO  14  STEP  -X :  PRI 
NT  AT  u  ,  sk  ;"*••;  AT  U4l,9tJ"  " 

8435  NEXT  U:  PRINT  RT  Z,x;  FLASH 

i;  •**" :  BEEP  1,2:  BEEP  1,2:  LET 
nn=»n-i.-  print  at  21,23; "HEnd="; 
an:  print  at  z  ,  x;  "  ";at  Z4l,x;"» 

" :  LET  X  =2 

8440  IF  »n  <  =0  THEN  GO  TO  71© 

8441  GO  TO  3410 

8450  FOR  b  =0  TO  7:  BEEP  l,b.  BOR 
DER  b:  PAPER  b:  NEXT  b 
8460  LET  Z  =  18 :  LET  X =2 :  LET  d«=0 
:  LET  as =16:  LET  sa=31 
8500  CLS  :  TOR  n=19  TO  21:  FOR  ft 
=0  TO  31;  PRINT  AT  n,»;  INK  1; "D 
NEXT  ft:  NEXT  n 

85øi  PRINT  AT  16,31;  ; AT  17,30 

jTBr*;AT  18,29;  *«ÉÉ" 

8502  PRINT"  AT  IS  ,  31;  "#"  ;  BT  17,29 
;  "#"; AT  16,30;  "0" 

8507  FOR  f*0  TO  18:  PRINT  AT  f,0 
;  ;  AT  f  ,  5;  *W* :  NEXT  f 

8509  LET  t«=0:  LET  er=l 

8510  IF  INKEY  #  =  " 8"  THEN  LET  X =X 4 

1:  PRINT  AT  Z,X-1,"  " 

8520  IF  INKEY#="5"  THEN  LET  X=X- 
1:  PRINT  AT  Z , X  4l ;  "  " 

8530  PRINT  BT  Z,x;”A" 

8531  PRINT  AT  18,5;  ■  ■ 

8550  PRINT  AT  ty. >14,  er;  "feflH" 

8551  LET  ty=tS4l 

8652  IF  ty =246  THEN  FOR  e  =  -l®  TO 
10:  BEEP  . l,e :  NEXT  e:  GO  TO  71 

0 

8560  IF  INKEY *=""  THEN  GO  TO  355 
0 

8561  IF  de  =1  AND  X =7  THEN  PRINT 
AT  17,7;"#".  BEEP  .1,-3 

8562  IF  d« =2  AND  X =9  THEN  PRINT 
AT  17,9;"#“;  BEEP  .1,-3 

8663  IF  de =3  ANO  X =11  THEN  PRINT 


AT  17,11;"#*  :  ottr  . , , - j 
8570  IF  X=26  THEN  LET  X =27 :  PRIN 
T  AT  Z , X  41;  "  ":  BEEP  .1,7:  GO  TO 
8573 

3571  GO  TO  85ie 

3573  LET  de=de4l 

8580  IF  de  =1  THEN  GO  TO  8500 

8590  IF  de =2  THEN  GO  TO  8610 

8595  IF  de =3  THEN  GO  TO  8620 

8600  PRINT  BT  as,sa;"  ";  GO  TO  8 

8610  PRINT  AT  as  41, S  8-1;"  GO 

TO  8510 

8820  PRINT  RT  17,29;“  GO  TO  8 
510 

9000  GO  TO  8510 

9999  SAUE  **INDY“  LINE  1 


:  BEEP  .1,-3 
THEN  LET  X =27 :  PRIN 
*•  :  BEEP  .1,7:  GO  TO 


Kalender-rytmer 


■  Her  på  det  sidste  er  kombi¬ 
nationsprogrammer  blevet 
meget  populære. 

Dette  Amstradprogram  kan 
således  klare  3  torskellige 
ting,  der  alle  har  noget  med 
datoer  at  gøre. 

For  det  tørste  kan  du  tå  en  ka- 
lenderudskritt  tor  en  bestemt 
måned,  med  tilhørende  o- 
rversigt  over  de  personer,  der 
har  fødselsdag  i  den  pågæl¬ 
dende  måned.  Data  tor  disse 
personer  ligger  Ira  linie  1780 
og  til  2990.  For  hver  person 
skal  der  være  4  data:  må¬ 
nedsnummer,  dato,  navn  og 
årstal.  Navnet  må  højst  være 
på  1 0  bogstaver,  og  det  sidste 
kan  passende  bruges  til  at  an¬ 
give  om  det  er  F(ødselsdag), 
B(ryllupsdag),  J(ubilæum)  el¬ 
ler  lignende .  Den  sidste  data¬ 
linie  skal  hedde  »o,o,«.o*. 
Programmet  kan  også  ud¬ 
skrive  en  kalender  tor  et  helt 
år  samt  tegne  dine  biorytmer. 
Måneds-  og  årskalendeme 
kan  udskrives  på  printer. □ 
Peder  Å.  Pedersen 


LYT  TIL 
DATAVOICE 


\  V 


Altom 

□FITfj 

Hver  lørdag  kl. 
17-18  på  FM 
102,8  MHz  i 
Storkøbenhavn 


Danmarks 

hotteste 

dataradio 


Produceres  i  samarbejde 
mellem  The  Voice  og 
månedsbladet  "Alt  om  Data 


48 


10  SYMBOL  AFTER  91 

20  SYMBOL  W3B,  126,216,216,234,216,216,222 
30  SYMBOL  1(30,116,200,214,214,214,36,220 
40  SYMBOL  ASC("J*)  ,36,0,124,198,234,198,198 
30  SYMBOL  ASC  (*<*), 0,0, 116, 26, 126, 216, 110 
60  SYMBOL  ASCCI*),  0, 0, 118, 204, 214, 102, 220 
70  SYMBOL  ASCCI’),  48,  O,  120,  12,  124, 204,  118 
80  aO«ASC  Cl'):  60-A8C  (  ■  \  ■  )  :  cO-ASC  (  '  J  •  ) 

90  al -ASC ( ■ ( ■ ) : bl-ASC < • l ■ ) : cl-ASC  < * > • ) 

100  x-ai:al-aO:aO-x: x-bi :bl-bO:bO-x:x-ci:cl-cO:cO-x 

110  KEY  DEF  29, 1 , aO, al 

120  KEY  DEF  28,l,b0,bl 

130  KEY  DEF  26,l,c0,cl 

140  KEY  DEF  22, 1 , ASC (*<•), ASC (■>• ) 

130  KEY  DEF  19, 1 , ASC ( "8* ) , ASC ( * • ■ ) 

160  KEY  DEF  17,  1 ,  ASC  <•♦•>,  ASC  C#'  ) 

170  KEY  DEF  39, 1 , ASC ( * , ■ ) , ASC ( •  |  * ) 

180  KEY  DEF  31 , 1 , ASC ( * . ■ ) , ASC ( * : * ) 

190  MODE  1: WINDOW  40, 1 , 40, 1 , 24: WINDOW  N3, 1 , 40, 23, 23: PEN  N3,3:INK  3,3,24 
200  LOCATE  1,4:PRINT  STRING* ( 39, *#* > 

210  PRINT:PRINT  STRING*(11, *#*) | *  KALENDER  ■ | STRING* ( 1 1 , *#* ) 

220  PRINTSPRINT  STRING* ( 39, *#* > 

230  LOCATE  11,10:PRINT  *1.  Mlnada-udakr i f t* 

240  PRINT : PRINT  TAB(11)|  '2.  Jra-udakr Ht* 

230  PRINTSPRINT  TAB(11)|’3.  Blo-rytaa" 

260  PRINTSPRINT  TAB(ll)|a4.  Navnaraglatar * 

270  ••■■Taat  dat  tnskada  nunn«r ! " : GOSUB  3000: z -VAL ( z*) 

280  IF  z < 1  OR  z >4  THEN  a*-*Kun  1  -  4  a>  taataa* : GOSUB  3000: GOTO  270 

290  ON  z  GOSUB  330,330,1090,1710 

300  MODE  1 S ••■aTaat  M  for  aanu*: GOSUB  3000 

310  IF  Z*«*H*  THEN  190  ELSE  STOP 

320  IF  z*-aPa  THEN  h1-8 

330  IF  z*-aPa  THEN  m2-8 

340  IF  z*-aPa  THEN  370  EL8E  360 

330  CLS: a*-*Taat  P)rintar  -  8) ktra*  s  GOSUB  3000SG0T0  320 
360  w1-1:m2-2 

370  CLS: WINDOW  NO, 1 , 40, 19, 23: WINDOW  NI , 1 , 21 , 1 , 18: WINDOW  N2, 23, 40, 1 , 18: WINDOW  N3, 
1,40,23,23 

380  a*-*Taat  Jratal  (1733  -  2300)': GOSUB  3030 

390  y-z:IF  y< 1 733  OR  y>2300  THEN  380 

400  a*-*Taat  a)nad  (1  -  12) a S GOSUB  3030 

410  »-ZSIF  m< 1  OR  a>12  THEN  400 

420  GOSUB  3100 

430  CLSS CLS  Ni: CLS  N2 

440  GOSUB  3230 

430  LOCATE  *2,1,1 

460  IF  m2-8  THEN  PRINT  N8 

470  IF  m2-8  THEN  PRINT  N8 

480  PRINT  Nm2,  "FVD8EL8DAGE  M.V.* 

490  PRINT  Nm2 
300  GOSUB  3380 

310  a*»a \nskaa  ny  alnad  7  (j/n)*: GOSUB  3000 
320  IF  Z*OaN"  THEN  400 

330  a*-*\nakaa  nyt  >r  7  ( j /n) a : GOSUB  3000 
340  IF  z*OaN*  THEN  380  ELSE  190 

330  MODE  2: WINDOW  NO, 1 , 80, 2, 21 : WINDOW  43,1,80,23,23 
360  a*-*Taat  Jratal  (1733  -  2300) a: GOSUB  3030 
370  y«z:IF  y< 1733  OR  y>2300  THEN  360 
380  a*-"Taat  P)r intar  -  S) k<ra* : GOSUB  3000 
390  IF  z*-*Pa  THEN  mO-8  ELSE  mO-O 

600  a*-*  ft* ♦SPACE* ( 24 ) ♦  *ft  *  »SPACE* ( 24) ♦ aNa  »SPACE* ( 24) ♦ a#a 

610  n*(l)-a  *  JANUAR*  ♦STR* (y) ♦ a  *  FEBRUAR* ♦8TR*(y) ft 

MARTS ‘♦STR*(y)*a  fta 

620  nB(2> ■*  ft  APRIL a *8TR* (y) ft  NAJ  * +8TR* ( y ) ♦ *  ft 

JUNI a  *STR* (y) ♦ a  ft* 

630  n*(3) ft  JULI* ♦STR* (y) ft  AUGU8T a ♦ STR* ( y ) ♦ a  ft 

SEPTEMBER*  ♦STRB(y) ft* 

640  n*(4)«*  ft  0KT0BER*«8TR*(y) ft  NOVEMBER* ♦STR* (y) 4*  ft 

DECEMBER* ♦STR* (y) ft* 

630  c-l:x-l:CLS 

660  PRINT  NmO, a  * | STRING* (76, *ft* ) 

670  PRINT  NmO, a* 

680  PRINT  NmO, n*(c) 

690  PRINT  NmO , a* 

700  PRINT  NmO,*  *  MA  TI  ON  TO  FR  L\  8\  ft  MA  TI  ON  TO  FR  L\  8\  ft  MA  TI  ON  TO 
FR  L\  S\  ft* 

710  PRINT  NmO, a* 

720  FOR  1-1  TO  6 
730  p*(i )-*  ft  * 

740  NEXT  1 
730  v— 1 

760  FOR  a-x  TO  x^2 
770  GOSUB  3100 

780  a*-"  * 

790  FOR  1-1  TO  a 
800  a*-a*4 " 

610  NEXT  1 

820  FOR  1-1  TO  n 

830  d*-RIGHT* (STR* ( i ) , 2) 

840  a*-a*^d*^  *  • 

830  a-aM 

860  IF  NOT  a-INT (a/7)ft7-0  THEN  890 
870  p*(v)-p*(v) ta*^a  *  • 

880  a-0: v-v*l :a*-*  * 

890  NEXT  1 

900  FOR  i-  a  TO  6 

910  a*-a*^  * 

920  NEXT  1 

930  p*(v)-p*(v) aa*4*  ft  * 

940  IF  LEN ( p* (6) ) -3  THEN  p* (6) -p* ( 6) ♦SPACE* ( 23) ♦ **  * 

930  IF  LEN ( p* (6) ) -28  THEN  p*(6) -p*(6) ♦SPACE*(23) ♦*#  * 

960  v— 1 
970  NEXT  a 
980  FOR  i-1  TO  6 
990  PRINT  NmO, p* ( i ) 

1000  PRINT  NmO , a* 

1010  NEXT  1 

1020  PRINT  NmO,*  *  1  STRING* (76, *ft* ) 

1030  a*-*\nakaa  nyt  kvartal  ( j /n) 7* : GOSUB  3000 
1040  IF  Z*-*J*  THEN  c-cM 
1030  IF  z*-*J"  THEN  x-x^3 

1060  IF  x-13  THEN  y-yM:IF  x-13  THEN  C-11IF  x-13  THEN  x-1 
1070  IF  z*-*J*  THEN  1080  ELSE  190 
1080  CLS:GOTO  660 

1090  MODE  i: WINDOW  NO, 1 , 40, 1 , 24: WINDOW  43,1,40,23,23 

1100  INK  0,0: INK  1,26: INK  2, 12: INK  3,22:B0RDER  0:PAPER  0:PEN  1 

1110  LOCATE  1,1JLINE  INPUT  *Taat  navn  • | na* 

1120  LOCATE  1,3: INPUT  *Fldsaladato  (ddaaaaaa)  *|fo* 

1130  da*-LEFT*(fo*,2) : aa*-MID* ( f o*, 3, 2) : aa*-RIGHT* (4 o*, 4 ) 

1140  bd-VAL (da*) :ba-VAL(aa*) :by-VAL(aa*) 

1130  IF  bd< 1  OR  bd  >31  THEN  1120 

1160  IF  ba< 1  OR  ba>12  THEN  1120 

1170  LOCATE  1,3: INPUT  *Taat  atartdato  for  biorytaan  (ddaaaaaa)  *|bi* 

1180  da*-LEFT*(bl*,2) : aa*-MID* ( b i *, 3, 2) : aa*-RIGHT* (bl*, 4 ) 

1190  »d-VAL (da*) : am-VAL (aa*) : ay-VAL (aa*) 

1200  IF  ad< I  OR  ad>3l  THEN  1170 

1210  IF  aa< 1  OR  am>l2  THEN  1170 

1220  IF  ay<by  THEN  1170 
1230  CLS 

1240  yr-by:mm-ba:dd-bd:GOSUB  1320 
1230  bx-x 

1260  yr-ay :aa-aa: dd-ad : GOSUB  1320 

1270  ax-x 

1280  xx-ax-bxM 

1290  pd-xx-INT(xx/23) #23 


1300  ad-xx-INT (xx/28)#28 
1310  fd-xx-INT (xx/33)ft33 
1320  CLS 

1330  DEG:0RIG1N  0,100 
1340  FOR  n-0  TO  639 
1330  y-SIN (n^pdftl6) 

1360  PLOT  nft320/313,y#80, 1 
1370  y-SIN(n^ad*16> 

1380  PLOT  n#320/237,y#80,2 
1390  y-SIN(n^fdftl6> 

1400  PLOT  nft320/218, yft80, 3 

1410  NEXT  n 

1420  MOVE  0,0 

1430  DRAW  640,0 

1440  MOVE  0,0 

1430  DRAW  O, 90: DRAW  0,-90 

1460  FOR  9-I6  TO  642  STEP  16 

1470  MOVE  9,-90 

1480  DRAW  9,90 

1490  NEXT  g 

1300  LOCATE  1,2: GOSUB  1600 
1510  END 
1320  ly-0 

1330  IF  INT  (yr/4)#4-0  THEN  ly— 1 

1340  IF  ly  AND  INT(yr/100)#100-yr  THEN  ly-0 

1330  IF  INT  (yr /400)  #400-yr  THEN  ly— 1 

1360  x-INT(30.37ftma) ♦INT(363.23ftyr-393.23) ♦dd 

1370  IF  aa>2  AND  ly  THEN  x-x-1 

1380  IF  aa >2  AND  NOT  (ly)  THEN  x-x-2 

1390  RETURN 

1600  PRINT  "BIORYTME  for  * | na* 

1610  PRINT:PRINT  *Fldt  dan  " | bd | * . * | ba| * . • | by 

1620  PRINT:PRINT  *Kurvan  atartar  dan  *  i  ad  i  * . * » aa| * . " |ay 

1690  WHILE  INKEY (47)  —  1 : WEND 

1700  GOTO  190 

1710  MODE  2 

1720  LOCATE  1,3:PRINT  *TILF\ JELSER  OG  ( NDRINGER  AF  NAVNEREGISTER* 

1730  PRINT:PRINT  "HUSK  at  aava  prograaaat  aftar  (ndringar  1  navnarag 1 atarat * 

1740  PRINT 

1730  WHILE  INKEY  (47)  — i:  WEND 
1760  LIST  1780  -  2980 
1770  STOP 

1780  DATA  7,23, "Padar  F * , 1930, 4, 4, * Ingar  F*,1931 

1790  DATA  3,23,* Ing^Pad  B* , 1904,6,20, ‘Carla  F*,1909 

1800  DATA  3, 13, *Banta  F* , 1936, 1 , 10, *Bant ♦Sva  B*,1983 

1810  DATA  9,18, *Lana  M  F* , 1934, 7,10, *Lan»J I r  B‘,1978 

1820  DATA  2,20, * J 1 rgan  M  F* , 1949, 4, 2, *Svand  F*,1930 
1830  DATA  9, 18, * J I rgan  S  F* , 1927, 3, 31 , *L1 a  S  F*,1930 
1840  DATA  1,21, *01a  S  F* , O, 3, 13, *Thua  F*,1982 

1830  DATA  8,22,'Nynna  F* , 1978, 3, 12, * Jaapar  F*,1984 

1860  DATA  3,28, *Naya  F* , 1960, 8, 30, *Gytta  F*,1936 

1870  DATA  12,8, *01a  P  F* , 1933, 6, 8, * Jan  Rax  F*,1941 
1880  DATA  10,8, 'Lan^Jan  B* , 1963, 9, 24, *Lana  R  F*,1941 
1890  DATA  7,8,'Dortha  R  F* , 1969, 1 1 , 22, *V1 ggo  F*,1929 
1900  DATA  12,8, *Anna*Vlg  B* , 1948, 3, 23, 'Anna  F*,1931 
1910  DATA  3,7, *Aata  F* ,0, 12, 1 , 'Knud  S  F*,1924 

1920  DATA  0,0,* . *,0 

2980  DATA  0,0,* . *,0 

2990  STOP 

3000  PRINT  CHR*(7) 

3010  PRINT  43,  a* 

3020  z*-UPPER*< INKEY*) : IF  z*-**  THEN  3020 
3030  PRINT  N3,  SPACE*(39) 

3040  RETURN 
3030  PRINT  C HR« (7) 

3060  PRINT  «3,a* 

3070  INPUT  z 

3080  PRINT  43, SPACE* (39) 

3090  RETURN 

3100  a-y^l ♦31ft (a- 1) ♦INT ( (y-1) /4) -INT (3ftINT ( (yf99) / 100) /4) 

3110  IF  a>2  THEN  a-y^l ♦31ft (a-1 ) -INT ( (4fta^23) / 10)* I NT (y/4) -3ftINT ( (INT(y/100)+l>/4 
) 

3120  a-a-INT (a/7)ft7 
3130  IF  a-0  THEN  a-7 
3140  IF  a-1  THEN  a-8 
3130  a-a-2 

3160  IF  a-2  GOTO  3200 
3170  n-31 

3180  IF  a-4  OR  a-6  OR  a-9  OR  a-11  THEN  n-30 
3190  GOTO  3220 
3200  n-28 

3210  IF  y-INT (y/4)ft4-0  AND  NOT  y- INT (y/ 100) ftlOO-O  OR  y- INT (y/400) #400-0  THEN  n-Z 
3220  RETURN 

3230  IF  a-1  THEN  PRINT  MmI , TAB (6) I  *  JANUAR* | y 
3240  IF  a-2  THEN  PRINT  NmI , TAB ( 6) I ‘FEBRUAR* ) y 
3230  IF  a-3  THEN  PRINT  «m1 , TAB (7) » 'MARTS* I y 
3260  IF  a-4  THEN  PRINT  NmI , TAB ( 7) | ‘APRIL* I y 
3270  IF  a»3  THEN  PRINT  NmI , TAB < 8 ) | *MA J * | y 
3280  IF  a-6  THEN  PRINT  «m1 , TAB < 8) I  *  JUNI " | y 
3290  IF  a-7  THEN  PRINT  NmI , TAB <8> » "JULI *y 
3300  IF  a-8  THEN  PRINT  NmI , TAB (6) I  * AUGUST" ) y 
3310  IF  a-9  THEN  PRINT  NmI , TAB (4) | ‘SEPTEMBER* | y 
3320  IF  a— 1 O  THEN  PRINT  NmI , TAB (3) I "OKTOBER* | y 
3330  IF  a-11  THEN  PRINT  NmI , TAB (3) I ‘NOVEMBER* | y 
3340  IF  a-1 2  THEN  PRINT  NmI , TAB (3) I ‘DECEMBER* |y 
3330  PRINT  NmI 

3360  PRINT  Nm 1 , *  MA  TI  ON  TO  FR  L\  8\* 

3370  PRINT  NmI 
3380  a*-'* 

3390  FOR  1-1  TO  a 
3400  a*-a*^  * 

3410  NEXT  1 

3420  FOR  1-1  TO  n 

3430  k*-STR*( 1) : l*-RIGHT*(k*,2) 

3440  a*-a*^ !•♦ *  • 

3430  a-a«l 

3460  IF  NOT  a- INT (a/7) #7-0  THEN  3320 
3470  a-0 

3480  IF  LEN (a«) >20  THEN  a*-LEFT* (a*. 20) 

3490  PRINT  NmI , a* 

3300  PRINT  NmI 
3310  a*-** 

3320  NEXT  i 
3330  FOR  1-a  TO  6 
3340  a*-a*^ * 

3330  NEXT  1 
3560  PRINT  NmI.b* 

3370  RETURN 

3380  FOR  1-1  TO  64 

3390  READ  aanad , dato, navna*, aar 

3600  IF  aanad-0  THEN  3670 

3610  IF  aanadOa  THEN  3660 

3620  d*-STR* (dato) : d*-RIGHT* (d*, 2) 

3630  fa*-d««*.  •♦navna*c  * 

3640  aldar-y-aar 

3630  PRINT  Nm2, f a*i 

3655  PRINT  Nm2,  USING  *NN*|aldar 

3660  NEXT  i 

3670  RESTORE 

3680  RETURN 


49 


Mr.  Brown 


■  Du  er  Mr,  brown,  der  har 
en  frygtelig  opgave  toran  sig. 
Du  skal  nemlig  igennem  tre 
livsfarlige  labyrinter  med 
elektriske  vægge,  og  masser 
at  farlige  uhyrer  der  er  para¬ 
te  til  at  fortære  dig. 

Du  starter  med  5  liv  som  ha¬ 


stigt  og  sikkert  nedtæller  un¬ 
dervejs  i  dette  Commodore 
64  spil.  Du  tår  ekstra  liv,  hver 
gang  du  gennemfører  en  la¬ 
byrint,  og  styringen  foregår 
med  joystick  i  port  2,  altså  et 
rigtigt  arkadespil. □ 

Carsten  Andersen 


COMMO 

- 

DORI 

i-. 

64 

ih« 

li 

10  PRINT' 
.  ® 

PØ  PRINT' 


CCLR5'':PDKE  53200  .  C9  :  POKE  53PB1 
(GUL,CRSR  NED4  ,  CRSR  HØJ REV )  «  ri 

III 


30  PR I NT ” C  RØD  ,  CRSR  HØJRE75  I  I  I  I 

II  II  I  I  II  ” 

HØ  PR  I  NT  "  C  CYftN  ,  CRSR  HØJRE7)  I  I  *— t—*  I - I  I- 

-r-»  I  II  I  I  I  I  ” 

SØ  PR I NT " C  GRØN  »  CRSR  HØJRE7J  I  III  I  II 

I  I  I  I  I  I  I  I  I  ” 

SØ  PRINT”CL,BLAA,CRSR  HØJRET)  J-  *  *  ■*  ■  ■ - 

70  PR I NT ” C  RØD .  CRSR  NED.CRSR  HØJRES)  , - ,  ” 

E30  PRINT"CCRSR  HØJRES)  I  C  I  CARSTEN  B  .  OM 
DERSEN  ISOS** 

30  PRINT"CCRSR  HØJRES )  * - »  ” 

100  GDSUB  5000 

110  PRINT”(CLR . HUID, CRSR  HØJREIS) I NSTRU 
KT  I  OM  ” 

1 PØ  PR I MT ” C RØD , CRSR  HØJREIS ) 

1 30  PRINT -'CCY^N  ,  CRSR  NEDJUHELDIØE  MR  .  O 
ROUJN  ER  FANGET  I  S  FARLIGE” 

1*40  PR  I  NT  "LABYR  I  NTER  .  C  L  I  LLA  ,  SPACE  )  MR  .  B 
ROUJN  SKAL  PASSE  PAA  •* 

150  PRINT”CCRSR  NED ) MURENE .  SOM  ER  ELEK 
TRI SKE .  OB  PAA  DE” 

1 GØ  PR I NT ” C  CRSR  NED ) UBEREGNEL I OE  UHYRER 
.  DER  JAGTER  HAM . ” 

170  PR  I  NT  ”  C  ORØN  .  CRSR  MED  )  DET  ER  DIM  OPB 

AUE  AT  LEDE  MR .  BROUN" 

130  PR I  MT ” C  CRSR  MED  3  TRYBT  I OEMMEM  LABYR 
I  MTERME  .  •• 

1 30  PR I MT "CL.  HI  .00  .  CRSR  MED ) MR  .  BROUN  HA 
R  5  LIU  1  EKSTRA  LIU  UED  ” 

300  PR I MT” C CRSR  MED)AFSLUTMIMB  AF  HUERT 
LOBYR I NTOESN I T . ” 

310  PR I MT ” C RØD . CRSR  NED3 . CRSR  HØJRE 1 0 ) C 
JOYST I CK  I  PORT  S) ” 

330  PR I MT ” C L . ORØM . CRSR  MED3 , CRSR  HØ JRE7 
) TRYK  SPACE  POR  AT  STORTE ” 

330  OET  3* : IE  A»- ”  "THEM  350 

340  IE  AS<  >  ”  ” THEM  330 

350  A-A^ 1 : D— 5 

350  S 1—333  :  S3-145  :  Ul  — 1*4  3  s  U3  — 03  :  U3-4B  :  U*4 
—  30*4  :  US  — 70  :  UB  —  03  :  U7— 1  10  :  UO  — 30*4 
370  U3— 330 : UØ— 33 : Ml— 333 : M3— 170 

1000  PR  I MT ” C CLR )  ”  i  POKE  53301 , 0 :  POKE  533 


1010  PR I MT  * 


CBRØN.CRSR  HØJRE)-*— 

m  m  i  t  n  r 


1030  PR  I  MT  *'  C  CRSR  HØJRE)-*- 

1030  PR  I  MT  ”  C  CRSR  HØJRE  )  4 

M-  4” 

10*40  PR  I  NT  ”  C  CRSR  HØJRE  )4 

4” 

'  C  CRSR  HØJRE  )  4 


1 050  PR I MT ' 

-I-  -I-  *  ♦ 

1 050  PR I MT ’ 
r  -*-  -*— » 

1070  PR I MT ' 


C  CRSR  HØJRE  )  4 

M-  4” 

C  CRSR  HØJRE  )  4 

-#--*-  -I- 

lØOØ  PR  I  MT  ”  CCRSR  HØJRE  )  4 

4  +  -I-  4” 

1030  PRIMT  "CCRSR  HØJRE  )  4 
4  4  T  4  -4” 

1100  PRIMT  "CCRSR  HØJRE  )  -4 

D  ”  4  4  4  -4  4-” 

1110  PRIMT  "CCRSR  HØJRE)4 
-4-4-4  4-  4” 

1130  PRIMT  "CCRSR  HØJRE  )  4 
4-  4-  4-  4-  4-” 

1130  PRIMT  "CCRSR  HØJRE  )  4 
4  4-4-4-  -4” 

1  140  PR  I  MT  ”  C  CRSR  HØJRE  D  4 


1  150 
4 

1  150 
I-  4 

1  1  70 
I-  4 

1  1QØ 
h  4 

1  1  30 

V  4— 
1300 

h  4— 

1310 

h 

1330 

V 

1330 

l—i 

1340 


PR  I  MT  "  C  CRSR  HØJRE  )  4 
4-4-4-  -4” 

PR  I  NT  "  C  CRSR  HØJRE) 4 
4-4*11  4-  4-” 

PR  I  MT  ”  C  CRSR  HØJRE  )-*- 
4-  4” 

PRIMT” CCRSR  HØJRE ) 4 

4  4** 

PR I NT  " C  CRSR  HØJRE ) 4 

»  *  -4** 

PRIMT "CCRSR  HØJRE ) 4 

-44  ♦  ♦  I  *  *  *  I  I  I  4” 

PR I MT ”  C  CRSR  HØJRE ) 4 

4” 

PR  I  MT”  C  CRSR  HØJRE)  4—i 

-4** 

PR  I  MT  "CCRSR  HØJRE)-*— | 


1350 
1350 
1  350 
U4  — 1EE 
1370 


50 . 0 
3010 


PR I MT "C CRSR  HØJRE  )*******  *****lll 

♦4444444-44444444” 

OOTO  HØØØ 
A  — A-*-  1  :  D  —  D-*-l 

SI— 337 : 53—100 : U 1—130 : U3-140 : U3— 70 : 
5  :  US— 103  --  UB  —  BØ  s  U7—  1B3  :  UO  — 303 
U3— 330 : UØ— 73 : Ml— BØ : M3— BØ 

PRINT ”CCLR) ” : POKE  53301 . 0 : POKE  53E 


PRIMT" CL -RØD. CRSR  HØJRE ) 4- 

*■♦♦***♦**♦*** 


3030  PRIMT” CCRSR  HØJRE ) 4 


3000 

3070 

3000 


3100 

3110 

3130 

4 

3130 

4 

31*40 

4 

3150 


PRIMT "CCRSR  HØJRE ) 4 

III  4” 

PR I MT " C  CRSR  HØJRE) 4 

4-4  4” 

PR I MT " C  CRSR  HØJRE ) 4 

»-4  -r-  4” 

PRIMT "CCRSR  HØJRE ) 4 

»-  4  4-4  4” 

PR I MT ” C  CRSR  HØJRE ) 4 

*■  4  4*1  4*" 

PRIMT "CCRSR  HØJRE) 4 

PRIMT "CCRSR  HØJRE ) 4 

I-  4  444  4” 

PR I MT ” CCRSR  HØ J  RE ) 4 

V  4  4-4  4” 

PRIMT "CCRSR  HØ J  RE ) 4 

V  44  4  4” 

PR I MT " CCRSR  HØJRE ) 4 
III  4'* 

PRIMT "CCRSR  HØJRE ) 4 

PR I MT ” C  CRSR  HØJ  RE ) 4 

PRIMT "CCRSR  HØJRE ) 4 


♦  *♦1111 


4 

3  1  BØ 

PR I MT ” 

4  4 

C  CRSR 

4” 

HØJRE ) 4 

4”  5  n  ”44 

3170 

PR I MT ” 

CCRSR 

HØJRE ) 4 

4L  I  U4 

4 

3100 

PR X MT ” 

C  CRSR 

HØJRE ) 4 

titt 

44 

3130 

’  PR I  MT ” 

C  CRSR 

HØJRE ) 4 

444 

*  *  * 

3300 

"  PR I MT  ” 

C  CRSR 

HØ JRE ) 4 

44 

♦  »  1  » 

PR I MT ” 

PR I MT ” 

PR I MT ” 

PR I MT ” 

C  CRSR 

C  CRSR 

C  CRSR 

C  CRSR 

HØJRE ) 4 

4” 

H  0  J  R  E  )  4 

4” 

HØJRE  )  -*— i 

•  *  ” 

III 

3350 

3350 

3350 

BOTO  HØØØ 

A  — A^-l  s  D  — D-*-  1 

SI— 155 : S3-GØ : Ul— HB : U3 

—  150  z  U3— 333  :  U 
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4~1B3  :  U5-B3B  :  UG-104  :  U7-B07  :  IJO-G4 
U3-133:UJ9-10B:m-llH:M?-5n 
3000  r»R  I  NT  C  CLP  3  ”  :  TOKE  53BB1 ,0:  PDKE  535 

O  0 , 0 

30X0  PR I NT " C  CYftN ,  CR5R  HØJRE 1  ft  H  M  I  H  Ml 

-!ftliftftft|||ftftft||ftftft||ftftftftftft-» 

3050  PRINT”  CCRSR  HØJ  RE  J  -+  ||  H  H 

3030  PRINT"CCR3R  HØJRE5  4  4  H  M 

30**0  PRINT”CCRSR  HØJRE  J  -ft-  4  |  4  | 

-4-  -I- 

3050  PRINT”CCRSR  HØJRE)4  411  » 1 1 

-4- 

3060  PRINT"CCRSR  HØJRE! -ft-  ft  ft  |  | 

■4  ++  -4-  -r  ■+” 

30-70  PRINT  "CCRSR  HØJRE  5 -ft— ft-  -ft-  _i_ 

3060  RR  I  NT  ”  C  CRSR  HØJRE  3  -ft- ft  ft  -ft. 

3050  RRINT  ”  CCZRSR  HØ  J  RE  !  ft  ft  ft  ft  -ft. 

-4-»SD”-ft-  -ft-  -ft-” 

3  100  PRINT ”  CCRSR  HØJRE  3  ft  ft  ft  ft  ft  _ft_ 

-4-4-L  I  O-ft-ft-  -*-” 

3XXØ  PRINT "CCR5R  HØJRE  !  ft  ft  ft  ft  ft  ft  -ft. 

3150  RRINT”CCRSR  HØJRE  3  ft  ft  ft  ft  |  |  ft  |  ft  1 

. . I  > 

3130  R R  I  MT  ”  C  CRSR  HØJRE  !  ft  ft  ft  ft  ft  ft  ft  ft 

-4-4  »  >  >  4 

3  X  *40  F»R  I  MT  **  C  CRSR  HØJRE  3  -ft- 4  -ft- 


3  1  50  RR  I  MT  *•  C  CRSR  HØJRE  !  -ft- 


3X60  RRINT” CCRSR  HØJRE  5-4- 

4  4  4  »  >  I  I  I  I 


3  X  "70  F»R  I  MT  *•  C  CRSR  HØJRE  1  -ft- 

■4  4  4  4  -4-" 

3  1  60  RRINT "CCRSR  HØJRE  1  -*- 


3130  RRINT "CCRSR  HØJRE  3  -ft- 


-4—4- 


3500  RRINT” CCRSR  HØJRE  !  -ft- 

4  4  4  4  4  4  4  4  4  4  1  4  4  4  4  4  4  -4-” 

3510  RR  I  MT  ”  C  CRSR  HØJRE  !  ft  ft 

-4- M 

3550  PR  I  MT  *'  C  CRSR  HØJRE  !  4  ft  | 
3530  PR  1  MT  "  C  CRSR  HØJRE  !  ft  ft  ft 

•  4  ** 

35** 0  F»R  I  MT  *•  C  CRSR  HØJRE  1  -ft- ft  ft 
~-4*  44444444444444444  ** 


4  4  4 


3550  Q  O  T  O  **000 
**000  X  —  ** 0  ;  Y  —  60  :  POKE  U+  30 . 0  :  POKE  U-^31  0  ; 

ROKE  U  ,  X  :  PDKE  U^l  .  Y  :  GQSUB  **5X0 

**0X0  POKE  O-*- S  .  SI  ;  POKE  LJ-+-  3  ,  S5  :  PDKE  U+**  LJ 
X  :  POKE  U^-5  .  LJ5  :  PDKE  .  U3  :  PDKE  .  LJ** 

**050  PDKE  U>B,U5:  PDKE  U^3  .  UB  :  PDKE  U-^XØ  , 
U7:  PDKE  W-MX  ,  UB:  PDKE  U+X5.U9 
:  POKE  LJ-*-  1  3  .  LJ 0 

**030  PDKE  y-*X4,ni:POKE  U*-15  ,  M5  :  POKE  LJ-+-S 
3 . 555  :  PDKE  U  +  5B  ,  555  :  PDKE  LJ-*-37.1*4 
:  PDKE  U-*-3B  .  S 
*10*40  PDKE  LJ-*- 5 X  .  3 

**050  POKE  U,  Z:  K-K+X  :  IF  X  — 50  THEM  GOSUB 
5500 : PDKE  U+5X,5tS+3 

**060  Jl-I—  XS—  C  REEK  C  56350  !  6ND  15  1 
4070  I E  JM  — 0  THEM  4 X  50 

**060  PDKE  5** 556 . 15  :  PDKE  5**563  .  153  :  PDKE 
S45B4 . 15  :  PDKE  5*1560  .  ** 0  :  PDKE  54273 . 500 
**050  PDKE  54203  .  156  :  PDKE  5** 56*4 . 0 
*4X50  I  E  JM—  1  THEM  Y  — Y  — ** 

*4X30  IE  JM  — 5  THEM  Y  — Y-*-4 

*41*40  IE  JM  — 6  THEM  X  — X-*-*4 

4150  IE  JM  — 4  THEM  X  —  X  —  ** 

*4X60  IE  JM  — S  THEM  X  — X  — 3  1  Y  — Y  — 3 

*41-70  IE  JM  — 6  THEM  X  — X  —  3  :  Y  — Y-*-3 

*4X60  IE  JM  — 3  THEM  X  — X-*-3  s  Y  — Y  —  3 

*4130  IE  JM— 10  THEM  X  — X-*-3  :  Y  — Y-*-  3 

*4500  GOSUB  *45X0  :  BOTO  *4050 


4250  1  E  PEEKCS3270)-3  THEN  4  400 

4230  PEKKC53B7GJ>3  THEN  4300 

4240  IF  PEEK  C  533-79  3—  1  THEN  4300 

'*  il*  40  RETURN 

EOKE  5427a+S,10:PDKE  54E7BTB,  BH:  PD 
54c7c  B  X  14 

4310  F*OKE  54275+ 1  ,  X  i  PDKE  54575+4 , 153 
Vi3e®  F’CR  Ul  — 0  TO  50 : ROKE  53561. 0 : ROKE  53 


*4330  POKE  53561 . 555  :  ROKE 
r  EOKE  54575+4 . 156  =  ROKE  LJ-51 . 0 
*43*40  D  —  O—  Is  IE  D  — 0  THEM  5500 
*4350  OM  6  GOTO  1000.5000.3000 

*4*400  Q  — S-+-  1  :  POKE  LJ-+-51 . 0 
*4*410  OM  B  GOTO  1 350 . 5350 , 5600 

«=-S2®2  POKE  50*40 .13:  ROKE  50*41.1*4- 

TO  ^0*4^  -  ROKE  L  .  15  :  MEXT  L 

Mi5i0K.FDR  N“®  TO  65:  REBD  Q:  PDKE  B35  +  M  .  O  : 

MEX  T  M 

nIxTBNFDH  'SJ-e>  Ta  Be=REf,0  !■  :  POKE  B3G  +  N.P, 

k.?5xB.,FDR  M-O  TO  BE:RE«B  E:f>OKE  960.N.F: 

ME  X  T  M 

sSn^OrMEXT  ^ ^ 39  •  1  :  F‘OR  n“  *  TO  7 : ROKE  0-^3 

5050  RETURN 

5060  DBTB  0. 0.0. 0.0. 0.0  5 1 ,0.0. 1E*"7  6*4  X 

•  *  1  •  255  •  BØQ  •  s  .  251 . 5X5  ,  -7 . 551 . 5*4*4  * 
5070  D6T6  7 . 555 . 5*4*4 . 7 . 55  1 . 5*4*4 . 7 . 131 . 160 

•  •  3  ■  S3*4 . 5*40 . 0 . 555  .  X  35 . 0 . 63 . 0 
50BØ  U6T6  0  .  X  7 .0,0. 6  X  .  6*4 . 0 . 6  X  .  6*4 .000 

0.0. 0.0. 0.0  *  * 

DnTA  3  •  ess  -  1  92 .5.0. 6*4 . 5 . 555 . 6*4 .5.5 
SS  .  6*4 . 5 . 555 . 6*4 . 5 . 555 . 6*4 . 5 . 555 . 6*4 

51  00  D6T£  5 . 555 . 6*4 . 5 . 555 . 6*4 . 5 . 0 . 6*4 . 5 . 55 
^  •  2  • 69  •  S*4 . 5 . 555 . 6*4 . 5 . 555 . 6*4 . 5 . 555 , 6*4 

1  0  DftT n  2 . 555 . 6*4 . 5 . 555 . 6*4 . 5 . 555 . 6*4  5 

265 . 6*4 .5.0. 6*4 . 3 . 555  .  X  35 

6  X  ( * 0  DAT B  0  .  ø  .  0  .  oi  .  ø  cn  i  *i  ^  ^  ^ 

•  2  •  ®  •  e  -  *70  .  ®  .  é  .  536  ;  0 . 6  ;  536  I  6*4  * 

5130  DBTB  70.170.66.70.166.66.66.170  6*4 

•  B  •  254 . 6*4 . 5 . 506 .0.5. 55*4 .0.5, 170 , 0 

51*10  OBTB  0  .  166 .0.0. 50*4 ,0.1, 63 .0  X  63  0 

.0.0.0  ' 
5500  S—  I  MT  C  6-RND  C  X  X  !  ^-5  ;  X  — 0  :  RETURN 
6?S00  F*RirsJT”CCLR  J  EOXE  53580 . 0  :  POKE  535 

S510  PR  I  MT  ”  C  L  .  BLBB  ,  CRSR  NED5  .  CRSR  HØJRE 

153DAME  DUER  ** 

P?LSC J / N  5  ”T  ^  CRSR  MED.  CRSR  HØJREX3JMYT  S 


,  0  :  F» 


X  30  : 


■*»  :  IF  ns-  ”  "THEM  5530 
5540  IE  nS-"J”THEM  QOTO  5570 

IF_  ”N "THEN  PRIMT-CLILLO,  CRSR  ME 

DS . CRSR  HØJRE3!OET  ER  Dft  I  ORDEM  -  SBB 

STORRER  LJ  I  ■* 

5560  EOR  I  — 0  TO  6000  :  MEXT  :  ROKE  LJh 

R  I  rsJT  -  C  CL  R  D  :  END 

SS70  ROKE  LJ  +  51 ,0:POKE  LJ  +  53 . 0  :  ROM 
5600  RR  I  MT  *'  C  CL R  !  ” 

56X0  EOR  0  —  5  TO  X  S  STER  5 = ROKE  U  + 

MEXT  O  :  ROR  H  — *4  TO  X  *4  STER  5 

:  ROKE  CJ-*-H  .  50-H  — SS  :  MEXT  H 
5650  ROKE  LJ  .  155:  ROKE  U+X,50:POKE  LJ-^53  .  1 

s  ROKE  LJ-+5B  .  553  :  ROKE  d-*-Sl.S53 

^  S630  RR I MT ” C  L  .  RØD  .  CRSR  MEDS  .  CRSR  HØJRES 

3T ILLYKKE  —  MR .  BROUN  ER  REDDET” 

56*40  RR  I  MT  »  C  CY6M  .  CRSR  MEDS  .  CRSR  HØJRES  5 

5650  RRINT” CCRSR  HØJRES  3  | 

I  - 

5660  RR I MT ” C  CRSR  HØJRES  X  | 

I  ” 

5670  RRINT "CCRSR  HØJRES J| 


5660  RRINT ” CCRSR  HØJRES!  *— - 

5630  EOR  I — 0  TO  3000 : MEXT : QOTO  55X0 
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Samler  du  på  programmer 

Så  kan  du  ikke  undvære  SOFT.  Danmarks  eneste,  rigtige  softwaremagasin. 
Hver  anden  måned  finder  du  store  og  små  programlistninger  til  alle  markedets 
kendte  computere  -  fra  ZX-81  over  Commodore  64  til  IBM  PC. 


fBÉisa 


KONKURRENCE: 


SOFT’  spilredaktion  er  også  på  færde  i 
hvert  nummer.  Læs  om  de  nyeste  og  bedste 
computerspil  til  netop  din  datamat. 


Det  næste  nummer 
til  samlingen 

udkommer  den  24.  oktober 


o£  køle 


1 1  I  * 


\ 


J 

/ 


vindere! 


De  10  heldige  vindere  al  vo¬ 
res  James  Bond  konkurrence 
fra  sidste  nummer  er  nu  fun¬ 
det. 

Det  tog  en  grum  tid  at  gen¬ 
nemgå  alle  de  indsendte  ku¬ 
poner  og  vi  er  helt  overvæl¬ 
det  over  den  respons  konkur¬ 
rencen  har  givet. 

Vi  har  desuden  fundet  ud  af 
at  antallet  af  James  Bond  film 
ikke  som  opgivet  er  enten  8, 
10,  14  eller  24,  men  snarere 
16  .  Vi  har  dog  godkendt  alle 
som  har  svaret  14  ved  spørgs¬ 
målet. 


Vinderne  af  "A  Vlew  to  a 
Klir '  spillene  er: 


Lars  Ulsø 
BJørnøvænget  44 
8381  Mundelstrup 
Commodore  64 

Johnny  Jørgensen 
Gladsaxeve]  164 
2860  Søborg 
Commodore  64 

Jonas  Krat 

Blnderup  Strandvej  33 
6091  Bjert 
Commodore  64 

Martin  Eriksen 
Holmevej  29,  Annlsse 
3200  Helsinge 
Amstrad 

Jess  Nielsen 
Bryggerlvej  14 
9460  Brovst 
Commodore  64 


Birger  Clausen 
GI.  Åbenråvej  15 
6400  Sønderborg 
Commodore  64 

Karl  Vinther 
Vinkelvej  18 
8870  Langå 
Spectrum 

Jesper  Enager 
Trommeslagervej  21 
4660  Store  Heddinge 
Commodore  64 

Jan  Schack  Andersen 
Nybogade  5 
8700  Horsens 
Commodore  64 

Henrik  Skifter  Nielsen 
Tornbjerg  3 1 
8732  Hovedgård 
Commodore  64 


James  Bond 


Vi  mangler  COMMODORE  64 
programmer 

Har  du  lavet  nogle  gode 
programmer,  og  kunne  du 
tænke  dig  at  tjene  nogle  hur¬ 
tige  kroner?  Så  send  dem 
straks  ind  til  SOFT  SPECIAL. 
Vi  kan  tilbyde  skattefrie  ho¬ 
norarer,  helt  op  til  1000  kro¬ 
ner. 

Send  dit  superprogram  til: 
SOFT  SPECIAL 
St.  Kongensgade  72 
1264  København  K. 


Pj 


W\ 


Glæd  dig  til  den 


19.  december. 


Næste  nummer  bliver  vores  store  lødselsdagsnummer. 
Kæmpesektion  med  test  at  de  hotteste  spil  Ira  England. 
Større  og  tydeligere  ud  listninger  til  alle  computere. 


Gigantudvidelse  at  Commoaore  64  og  Amstrad  programmerne.  Hvad  siger  du  til  en  Amstrad  assembler? 
Til  64’eren  kan  vi  tilbyde  et  supergodt  tipsprogram. 

VI  har  selvtølgellg  også  en  spændende  artikel,  der  hovedsagelig  drejer  sig  om  SOFT(ware). 


li 


■  Her  er  et  program  til  en 
uudvidet  VIC-20,  der  hjælper 
dig  med  at  definere  dine 
egne  karakterer.  Mens  du 
tegner  kan  resultatet  ses  på 
en  karakter  ved  siden  af.  Når 
bmgeren  omsider  er  helt  til¬ 
freds,  kan  karakterens  data 
fremtrylles  ved  et  tryk  på  F7 .  ■ 


m 


Kim  Berg  Hansen 


/  '/'»/ 
/ 


i 


o 


3  PR  I  HT "  nHWtøWWM  VENT  LIDT  !  !  !  "  ’ 

5  PQKE52 ,  28  :  P0KE56 , 28  ’■  F0PR=7 1 S8T07679 :  POKER  .  PEEK  <  A+25600  >  :  NEXT  :  P0KE36869 , 25= 

6  F0RR=7448T07455  ;  POKER  .  255  :  NEXT  •  PØKE36879  ■  25  :  P0KE658  •  1 28 


lø  PR  I  NT 'TE  K  R  P  AKTER  DEFINERI  N  G" 

2ø  PRINT "WEilJ  STVRER  CURSOPEN  RUNDT  PRR  ET  FELT  PRR  8*8  PRIKKER  V.H.ft.  " 

3ø  PRINT" TASTERNE :  P  L  : 

4ø  PR I NT " DU  SKIFTER  MELLEM  TEGNE/SLETTE  V.H.fl.  Fl" 

5ø  PPI NT "PRR  KARAKTEREN  VED  SIDEN  AF.  KRN  DU  FøLGEMED  I  TEGNEARBEJDET" 

6ø  PRINT" I  LILLE  FORMAT.  NTASTER  DU  F7,  FRRR  DU  DE  TRL  DER  SKAL  TIL" 

7ø  PR I NT "FOR  AT  DEFINERE  DIN  KARAKTERER.  «  •  TRYK  EN  TAST"; 

1 øø  IFPEEK ( 1 97  > =64 THEN 1 øø 
1 06  FORA* 7 1 68T07 1 75  :  POKER ,  ø :  NEXT  :  PR  I  NT  "  73" 

1 20  FORA« 1 T08 : FORB« 1  TOS • P0KER*22+B+7657 ■ 46 : P0KEA*22+B+38377 , ø : NEXT : NEXT : R=4 : B=4 : 

c=-,i 

1 30  P0KEA*22+B+7657 , 35 : I FC=- 1 THENP0KEA#22+B+7657 . 46 
1 4ø  PQKEA*22+B+ 38377 , ø : GETAT : I FhT=" ■" THENC=-C 
150  I  FA$=  "  II"  THEN  1 70 

160  A=R+<A#="P" >-<R$«" .  ")  : B*B+< A*«"L" >-< A#«"  :  ">  :  A«A+ < A«9 > - < A*0 >  :  B=B+<B=9)-<B=0)s 
GOT  0 1 9ø 

1  7ø  PR  I  NT  "  tf'MfWNNPMWM" 

1 8ø  FORA«  1  TOS  =  C=ø  ■  FORB«  1.  T08  :  C=C-  <  PEEK.  C  A*22+B+7657  >  =35  >  *2 1<  8-B  1  :  NEXT  :  PR  I  NT  C  NEXT 

184  PRINT"«  TRYK  EN  TAST"; 

1 85  I FPEEK  <  1 97 =64 T HEN  1 85 

186  GOT0 106 

1 9ø  I  FC=  1 THENPOKE 7167+A  .  PEEK <  7 1 67+R  > 0R2  f •:  8-B  ) 

1 95  I  FO- 1  THENPOKE?  1 67+A ,  PFEK  <  7 1 67+R  >  AND  C  255-2 1<  8-B  > 

200  PR  I  NT  "  afjTiTsTiTiTÆTiTiTsTfIBMPl«! "  :  GOT0 1  30 


Vi 


Sk 


■  HCT 

HcJ*»Chr  Tr>ayi*n 


y 


il 


s 


54  zøi 


TLF. 


(01)  24  12  33 


Har  du  se  f  lyset? 


Så  har  du  også  kobt  COMpuier  nr,  2 

-  og  allerede  læst:  Alt  om  Amiga  -  Commodores  nye  super¬ 
computer.  Sådan  sætter  du  hukommelsen  på  armen  -  Super  Seiko 
64.  Indenbords  i  128'eren.  Spændende  rapport  fra  PCW  Show  i 
London.  Modem  -  sådan  kommunikerer  din  Commodore.  Stortest  af 
5  printere.  Rapport  fra  en  computer-camp,  samt  anmeldelser  af 
både  soft  og  hardware.  Nyeste  tips  til  CI6-Plus/4  samt  64'eren. 

Samt  meget  meget  mere.  Fås  nu  i  kioskerne.  Pris  kr.  29.85. 


COMputer  -  for  DIG  og  din  COMMODORE 


